350  PIAS. 
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Como  el  ajedrez  con  monstruos  y  magos  por  piezas.  Cuando 
una  pieza  cae  sobre  otra.tienen  que  luchar  en  una  pantalla 
especial,donde  la  rapidez  y  reflejos  con  el  joystick  son  lo 
principal. 

La  estrategia  de  un  juego  de  tablero. 

La  magia  de  los  encantamientos  y  hechizos. 


La  máquina  que  hay  que  volar  para  creer. 
No  sólo  un  magnifico  simulador  de  vuelo, 
sino  también  un  sistema  de  combate  total. 
Mach  0  a  Mach  IV  en  3  segundos. 

Piloto  automático  con  navegador 
y  detector  incorporado. 

Computador  estratégico  y  de  abordo. 
Misiles  guiados  por  radar. 

2  Cañones  láser  de  fuego  continuo. 

Misiles  rastreadores  de  calor. 

Escudos  reflectores. 

Distintos  radares  de  detección  y  tiro. 

P.VR;  2500  pts. 


EL  EVOLUCIONADO 
SOFTWARE 
AMERICANO 


Desde  Silicon  Valley  (California), 
con  pantallas,  instrucciones 
y  presentación  en  CASTELLANO. 

C-64  -  Spectrum  -  Amstrad 


ONE  ON  ONE 

Un  mano  a  mano  entre 
los  dos  mejores  jugadores 
baloncesto  Norteamericano. 
(J.  Erving  y  L.  Bird) 
las  auténticas  reglas  del  baloncesto 
(personales,  pasos,  doble  falta,  tiros  libres,  etc...) 
Incorporadas  las  características  personales  y  de 
juego  (resistencia,  agilidad,  precisión  en  el  tiro, 
fatiga,  etc...)  de  los  dos  ases  que  directamente 
contribuyeron  en  su  diseño. 

No  es  un  juego  de  baloncesto,  es  puro  baloncesto. 

PVP:  2500  pts. 


La  excitación  en  el  combate  del  más  tradicional  y  adictivo 
videojuego. 

P.V.R:  2500  pts. 


Los  primeros  del  extenso  y  original  catálogo  de  ELECTRONIC  ARTS,  presentado 
en  España  por  DRO  SOFT. 


Editado  por  DRO  SOFT  Fundadores,  3  -  28028  Madrid. 


DRO  SOFT 


ELECTRONIC  ARTS™ 


Electronic  Arts:  Somos  una  asociación  de  Art  islas  de  la  electrónica  que  comparten  una  meta  común:  Queremos  explotar  al  máximo  el  uso 
personal  del  ordenador.  Es  algo  diflcil  de  llevar  a  cabo.  Pero  con  la  suficiente  imaginación  y  entusiasmo  creemos  que  hay  verdaderas 
posibilidades  de  éxito.  Nuestros  productos,  como  estos  juegos,  son  una  prueba  evidente  de  nuestro  esfuerzo. 
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•  Eormateador  de  pantallas. _ 

>  Muchos  programas  más  para  todos  los  Commodore. 

>  —y  todas  vuestras  colaboraciones. _ 


.  ,  Commodore  World  es  miembro  de  CW  Communications/Inc„  el  grupo  edito- 

'yjl  ámbito  informático.  Dicho  grupo  tiene  a  su  cargo  la  edición  de  57  púbíica- 

II  1  ^ y\  personas  leen  una  o  más  publicaciones  del  grupo  todos  los  meses.  El  grupo 

"  editorial  está  integrado  por:  ALEMANIA:  Computerwoche,  Microcomputer- 

welt.  PC  Welt.  Software  Markt,  CW  Edition/Seminar.  Computer  Business 
Run  (Commodore).  Apple’s.  ARABIA  SAUD1:  Saudi  Computerworld.  ARGENTINA:  Computer- 
world/Argentina;  ASIA:  Asían  Computerworld.  AUSTRALIA:  Australia  Computerworld.  Macworld 
and  Directones,  PC  World.  BRASIL:  Data  News.  MicroMundo.  DINAMARCA:  Computerworld/Dan- 
™arlí/£World  y  Run  (Commodore).  ESPAÑA:  Computerworld/España.  Commodore  World.  PC 
World.  ESTADOS  UNIDOS:  Computerworld,  Hot  CoCo,  InCider.  InfoWorld,  PC  World.  80-Micro 
Mac  World.  Micro  Market  World.  73  magazine,  Run  (Commodore).  Focus  Publications.  FINLANDIA: 
Mikro.  FRANCIA:  Le  Monde  Informatique,  Golden  (Apple),  OPC  (IBM)  v  distributique.  HOLANDA: 
Computerworld  Benelux,  PC  World  Benelux.  ITALIA:  Computerworld  Italia,  PC  Magazine  JAPON: 
Computerworld  Japan.  MEXICO:  Computerworld/México,  Compumundo.  NORUEGA:  Computer¬ 
world  Norge,  PC  World  y  Run  (Commodore).  REINO  UNIDO  DE  GRAN  BRETAÑA:  Computer 
Management,  Pe  Business  World,  Computer  News.  Computer  Bussines  Furope.  REPUBLICA  POPU¬ 
LAR  DE  CHINA:  China  Computerworld.  SINGAPUR:  Asían  Computerworld.  SUECIA-  Computer- 
Sweden.  MíkroDatorn.  Svenska  PC.  VENEZUELA:  Computerworld  Venezuela. 

TIRADA  DE  COMMODORE  WORLD 
Certificación  de  28.000  ejemplares 

Según  certificado  firmado  por  la  auditoria  internacional  DELOITTE  HASKINS  SELLS,  S.A., 
el  5  de  marzo  de  1984, 

la  tirada  de  Commodore  World  es  de  28.000  ejemplares. 

Este  certificado  se  encuentra  en  las  oficinas  de  S.I.M.S.A.  para  comprobación 
de  cualquier  persona  o  entidad  que  lo  desee. 
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UPER-INTERESANTISIMO 


SOMOS  AMIGOS  DEL  AMIGA 

De  momento  sólo  nos  conocemos  de  referencia,  aunque  nos  ha 
presentado  un  amigo  que  tenemos  en  común.  El  contacto  con  el 
Amiga  ha  sido  de  una  forma  un  tanto  fría  ya  que  no  se  podía 
contar  con  la  presencia  física  del  ordenador,  pero  el  calor  que 
desprendía  el  vídeo  rodado  durante  la  presentación  oficial  en  los 
Estados  Unidos  era  impresionante. 

El  “happening”  (porque  no  tiene  otro  calificativo)  que  tuvo  lugar 
el  23  de  julio,  en  el  Lincoln  Center  de  Nueva  York  contaba  con  la 
presencia  de  artistas,  músicos,  periodistas,  escritores,  hombres  de 
negocios,  la  plana  mayor  de  Commodore  y  de  todo  aquel  que  se 
precie  de  estar  al  tanto  de  lo  último. 

Os  estaréis  preguntando  qué  es  lo  que  hace  este  ordenador  para 
merecer  tanto  ruido.  Pues  sencillamente  de  todo.  Mientras  un 
público  entusiasmado  aplaudía  y  se  reía  ante  unas  demostraciones 
asombrosas,  pudimos  ver  cómo  un  artista  de  la  categoría 
internacional  de  Andy  Warhol  creó  su  primer  cuadro  hecho  en 
ordenador  coloreando  una  imagen  digitalizada  de  la  cantante 
Debbie  Harry  (Blondie).  Vimos  al  Amiga  en  su  faceta  de 
sintetizador  acompañando  a  un  grupo  de  músicos  como  un 
miembro  más  de  la  orquesta.  Durante  toda  la  noche  el  Amiga 
demostró  sus  posibilidades  en  tres  pantallas  de  vídeo  gigantes  ante 
un  público  realmente  encantado. 

El  sueño  detrás  de  toda  la  creación  del  Amiga  es  presentar  un 
ordenador  que  de'  al  usuario  la  posibilidad  de  dar  rienda  suelta  a 
su  imaginación  en  cualquir  tipo  de  aplicación.  Pero  como 
tampoco  han  despreciado  lo  bueno  aunque  no  sea  del  todo 
moderno,  Commodore  ha  creado  un  disco  emulador  de  PC  DOS 
de  3.5  pulgadas  que  permite  la  ejecución  de  los  mejores  paquetes 


disponibles  para  el  PC  IBM.  Vimos  correr  el  Lotus  1-2-3  y 
Wordstar,  por  ejemplo.  Nos  cansaríamos  de  comentar  aquí  todas 
las  maravillas  de  este  ordenador  (tampoco  es  el  sitio  más 
adecuado)  pero  no  podíamos  resistir  la  tentación  de  haceros 
partícipes  de  lo  que  se  ha  calificado  como  una  máquina 
revolucionaria.  Y  lo  mejor  de  todo  es  que  parece  que  no  tardemos 
mucho  en  tener  al  Amiga  en  España. 

POR  FIN...  ¡CODIGO  MAQUINA! 

Hemos  tenido  que  esperar  mucho,  pero  por  fin  lo  tenemos: 
nuestro  Cursillo  de  Código  Máquina  ya  está  enviado  a  aquellos 
que  lo  han  solicitado  y  por  estas  fechas  también  lo  podréis 
encontrar  en  kioskos.  Si  queréis  recibirlo  directamente  hemos 
incluido  un  boletín  en  este  número.  (Pág.  42)  ¡Gracias  por  vuestra 
paciencia! 

¡¡8.000  SUSCRIPTORESÜ 

Os  prometimos  un  viaje  para  dos  personas  a  una  ciudad  europea 
(con  tanto  ruido  sobre  el  Mercado  Común,  no  íbamos  a  ser 
menos)  en  cuanto  llegáramos  a  tener  8.000  suscriptores.  Pues  ya 
los  tenemos  y  vamos  a  proceder  a  sortear  ese  viaje  entre  todos  los 
que  recibáis  Commodore  World  directamente  a  casa.  Como  esta 
noticia  es  de  última  hora,  casi  al  cierre  de  este  número,  no  nos  ha 
dado  tiempo  de  realizar  el  sorteo,  pero  el  nombre  del  ganador 
será  publicado  en  la  revista  de  enero.  ¡Algún  afortunado  entrará 
en  el  86  con  buen  pie! 


METEDURAS  DE  PATA 


),  página  13...  ¡ajá,  trece!)  teñí 
)kes  (que  estaban  bien)  hay  c 


aplicación. 

1.  Teclea  POKE  44,12  :  POKE  12*256,0  :  NEW 

2.  Comienza  a  teclear  el  programa.  Cuando  acabes,  grábalo  y  comprueba  tus  errores  (ten  en  cuenta 
ida  vez  que  lo  leas  desde  cinta  debes  poner  antes  los  pokes). 

3.  Ejecuta  el  programa  con  RUN.  Este  programa  genera  uno  llamado  TURBO.COM  que  es  una  sola  lí 
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ITAR . 

JAIME  SAI.OM  BOSCH 

LOBERCIO . 

MACROCHIP,  S.A . 

MICROAMIGO . 

MICROS  CARDEN . 
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46  VENTAMATIC . 
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CREUS  INFORMATICA. 


IKON  ORDENADORES. 


TROAFICION  COMPUTER 


I  ERRE  MORET . 


HANTAREX., 

HISPASOFT. 


1EESA  MICROTERSA 


INDESCOMP. 


INFORMATICA  COMPUTER  LOGI. 


,  os  .  Para  que  tuncione  también  con  buscar  datos  comunes”  hay  que  incluir  el  STEP  en  la  linea 

36,  que  corregida  queda  así: 

1086  FOR  I  =  1  TO  X  STEP  2 

•  El  precio  del  Robot  Fischertechnik  que  distribuye  Ferre  Moret  no  es  29.900  pesetas  como  nos  habían  dicho  y  salió  publicado  en  el 


CONCURSOS  PERMANENTES 


Colaboraciones  de  Programas  y  Magia 

La  verdad  sea  dicha:  os  estáis  portando:  las  colaboraciones  que 
nos  están  llegando  son  numerosas  y  de  muy  buena  calidad.  Por  lo 
tanto,  vamos  a  aclarar  las  condiciones  de  nuestros  concursos 
permanentes. 

1 )  Los  sorteos  se  realizarán  en  los  meses  de  junio  y  diciembre. 

2)  Se  sortearán  siempre  ocho  premios,  cuatro  de  15.000, 
10.000,  5.000  y  3.000  pesetas  en  metálico  de  “Commodore 
World"  y  cuatro  premios  del  mismo  valor  en  material  de  Micro- 
electrónica  y  Control,  entre  todas  las  colaboraciones  publicadas. 

3)  Se  sortearán  siempre  seis  premios,  tres  de  3.000,  2.000  y 


1.000  pesetas  en  metálico  de  “Commodore  World”  y  tres  del 
mismo  valor  en  material  de  Microelectrónica  y  Control,  entre 
todas  las  contribuciones  publicadas  en  la  sección  de  "Magia". 

4)  Adicionalmente,  se  sortearán  diversos  premios  de  cintas, 
juegos,  objetos  curiosos,  etc.,  entre  todas  las  colaboraciones. 

5)  Los  autores  de  las  colaboraciones  vendidas  dentro  de  nues¬ 
tro  “Servicio  de  Cintas"  percibirán  el  20%  del  precio  de  la  cinta. 

6)  Todas  las  colaboraciones  deben  venir  escritas  a  máquina  y 
los  programas  grabados  en  cinta  (si  es  posible),  o  con  el  listado 
completo  en  impresora.  Nuestros  lectores  más  jóvenes  pueden 
escribir  a  mano  pero  con  letra  muy  clara. 

7)  Quedan  automáticamente  descalificadas  tanto  del  sorteo 
como  del  “Servicio  de  Cintas”  las  colaboraciones  que  hayan  sido 
enviadas  a  otras  revistas. 

8)  Las  colaboraciones  se  enviarán  a  “Commodore  World”, 
c/Barquillo,  21-3®  izda.  28004-Madrid. 


CLAVE  PARA  INTERPRETAR  LOS  LISTADOS 

Todos  los  listados  que  se  publican  en  esta  Revista  han  sido  ejecutados  en  el 
modelo  correspondiente  de  la  gama  de  ordenadores  COMMODORE.  Para  facili¬ 
tar  la  edición  de  los  mismos  en  la  Revista  y  para  mejorar  su  legibilidad  por  parte 
del  usuario,  se  les  ha  sometido  a  ciertas  modificaciones  mediante  un  programa 
escrito  especialmente  para  ello.  Para  los  programas  destinados  a  los  ordenadores 
VIC-20  y  COMMODORE  64,  en  los  que  se  usan  frecuentemente  las  posibilidades 
gráficas  que  aparecen  del  teclado,  se  han  sustituido  los  símbolos  gráficos  que 
aparecen  normalmente  en  los  listados  por  una  serie  de  letras  entre  corchetes  [  ]  que 
indican  la  secuencia  de  teclas  que  se  deben  pulsar  para  obtener  el  carácter  deseado. 
A  continuación  se  da  una  tabla  para  aclarar  la  interpretación  de  las  indicaciones 
entre  corchetes: 

jCRSRD]=  Tecla  cursor  hacia  abajo  (sin  SHIFT) 

CRSRU]=  Tecla  cursor  hacia  arriba  (con  SHIFT) 

CRSRR]=  Tecla  cursor  a  la  derecha  (sin  SHIFT) 


[CRSRLJ=  Tecla  cursor  a  la  izquierda  (con  SHIFT) 

[HOME)=  Tecla  CLR/HOME  (sin  SHIFT) 

[CLR]=  Tecla  CLR/HOME  (con  SHIFT) 

Las  indicaciones  [BLK]  a  [YEL]  corresponden  a  la  pulsación  de  las  teclas  de  1  a 
8  junto  a  la  tecla  CTRL.  Lo  mismo  sucede  con  [RVSON]  v  [RVSOF]  respecto  a  la 
tecla  CTRL  y  las  teclas  9  y  10. 

El  resto  de  las  indicaciones  constan  de  la  parte  COMM  o  SHIFT  seguidas  de 
una  letra,  número  o  símbolo  —por  ejemplo  [COMM+]  o  [SHIFTA] — .  Esto  indica 
que  para  obtener  el  gráfico  necesario  en  el  programa  deben  pulsarse  simultánea¬ 
mente  las  teclas  COMMODORE  (la  que  lleva  el  logotipo)  o  una  de  SHIFT  y  la 
tecla  indicada  por  la  letra,  el  número  o  el  símbolo,  en  el  ejemplo  anterior:  CÓM- 
MODORE  y  +  o  SHIFT  y  A,  respectivamente. 

En  los  signos  gráficos  además  se  ' 

ejemplo,  [7  CRSRR]  equivale  a  7  pt 
SPC]  tres  pulsaciones  de  la  barra  e¡ 
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Las  impresoras 
japonesas  del  futuro. 


SG-10  SG-15  120  cps. 

80  col.  136  col.  40  cps.  (NLQ) 


SR-10  SR-15  200  cps. 

80  col.  136  col.  40  cps.  (NLQ) 

Las  nuevas  impresoras  de  STAR  llevan  incorporadas  Le¬ 
tra  de  calidad  (NLQ),  un  buffer  en  los  modelos  de  80  col. 
de  2  K  y  en  los  modelos  de  136  col.  de  16  K. 
Microinterruptores  exteriores,  que  te  permitirán  cambiar 
el  tipo  de  letra,  salto  de  línea... 

Además  todos  los  modelos  son  compatibles  IBM,  con  un 
interruptor  exterior. 

SG-10/1S:  La  N.°  1  en  el  ranking  de  las  impresoras.  Eco¬ 
nómica  y  fiable.  Con  cinta  de  máquina  de  escribir.  Hay 


SD-10  SD-15  160  cps. 

80  col.  136  col.  40  cps.  (NLQ) 


POWERTYPE  110  col. 

18  cps.  (Margarita) 

un  modelo  especial  con  una  salida  adicional  para  Com- 
modore. 

SD-10/15:  La  potencia. 

Un  esfuerzo  inteligente  para  un  precio  standard. 
SR-10/15:  La  impresora  profesional,  que  resolverá  todos 
sus  problemas. 

POWERTYPE:  La  nueva  calidad  de  impresión  para  su 
escritura. 


De  venta  en  establecimientos  especializados: 


IMPORTADO  POR: 


COMPONENTES  ELECTRONICOS.  S.A. 


08009  BARCELONA.  Consejo  de  Ciento,  409 
Tel.  (93)  231  59  13 

28020  MADRID.  Comandante  Zorita,  13 
Tels.  (91)  233  00  94  -  233  09  24 


0*den» 
tus  discOs 

Alvaro  Ibáñez 

Los  usuarios  de  disco  tienen  una  ventaja  sobre  los  de  cinta: 

Saben  en  todo  momento  lo  que  tienen  en  cada  disco,  gracias  al 
directorio,  pero...  ¿es  esto  cierto?  Los  que  tienen  cientos  de 
programas  saben  que  no. 


A  todo  el  mundo  le  ha  pasado 
alguna  vez:  Aquel  programa 
que  una  vez  utilizó  y  que  le 
hace  falta  ahora...  ¿dónde 
(demonios  está?  Mucha  gcn- 
Ite  daría  dinero  pbr  tener 
una  lista  a  mano. 

El  programa  que  os  ofrecemos  en  este 
artículo  incluye  muchas  y  útiles  posibi¬ 
lidades.  Podéis  sacar  una  lista  de  todos 
los  programas  por  orden  alfabético  e 
imprimirla.  También  se  puede  guardar 
para  leerla  posteriormente  o  buscar  un 
determinado  programa. 

Lo  primero  que  hay  que  hacer  es 
teclear  el  programa.  Es  algo  largo  por¬ 
que  incluye  una  cuidada  presentación  y '.i 
bastantes  subrutinas  (que  podéis  utilizaijj 
en  vuestros  propios  programas).  AU 
I  final  del  artículo  se  explica  de  manen» 
general  el  funcionamiento  de  cada  parte 
del  programa. 

Una  vez  tecleado  y  comprobado,  se 
puede  comenzar. 

El  menú  ofrece  las  siguientes  op¬ 
ciones: 

1.  Añadir  programas. 

2.  Listar  programas. 

3.  Buscar  programas. 

4.  Imprimir  lista. 

5.  Guardar  lista. 

6.  Leer  lista. 

7.  Enviar  comando. 

8.  Quitar  programa. 

Además  aparecen  en  la  pantalla  tres 
indicadores:  el  número  de  programas 
que  hay  en  la  lista,  la  memoria  libre 
(véase  más  abajo)  y  el  estado  del  disco. 

Vamos  a  ver  lo  que  se  puede  hacer 
desde  cada  una  de  las  opciones. 

1 .  Con  esta  opción  se  introducen  los 
programas  en  la  memoria.  Es  la  que 
primero  tendrás  que  utilizar  (a  menos 
que  quieras  leer  una  lista  que  hayas 
creado  anteriormente). 

El  ordenador  te  pedirá  que  introduz¬ 


cas  un  disco  >  pulses  RETURN.  Este 
será  el  primer  disco  de  la  lista  que  vas  a 
crear.  A  continuación  te  pedirá  una 
ETIQUETA.  La  etiqueta  no  es  más  que 
un  carácter  (letra,  número  o  símbolo) 
mediante  el  cual  el  ordenador  va  a  iden¬ 
tificar  a  los  programas  de  ese  disco.  De 
este  modo  si  introduces  como  etiqueta 
W  (por  ejemplo),  todos  los  programas  de 
ese  disco  quedarán  registrados  como 
"programa  del  disco  W”.  Es  conve¬ 
niente  que  escribas  este  identificador  en  la 
etiqueta  del  disco  para  que  tú  también 
sepas  cuál  es  cada  disco,  ¡si  no,  este 
programa  no  te  serviría  de  nada! 

A  continuación  el  ordenador  comen¬ 
zará  a  leer  el  disco.  En  primer  lugar  te 
dirá:  El  disco  <W)  es  NOMBRE  DEL 
DISCO  y  después  los  programas  que 
contiene. 

Los  datos  para  cada  programa  son: 
El  número  que  tiene  asignado  en  la  lista 
(no  se  utiliza  para  nada,  sólo  como  refe¬ 
rencia).  la  longitud  en  bloques,  el  nom¬ 
bre.  el  tipo  de  fichero  que  es  y  el  disco 
en  el  que  se  encuentra.  Cuando  termine 
te  pedirá  que  pulses  RETURN  para  yol- 
ver  al  menú. 

Repite  esta  operación  con  los  demás 
discos  hasta  que  hayas  terminado  con 
todos.  Si  te  fijas  verás  que  el  ordenador 
te  ayuda  con  las  etiquetas.  Si  la  primera 
etiqueta  es  la  A.  la  segunda  vez  el  orde¬ 
nador  te  dará  la  B  como  etiqueta,  de 
modo  que '  sólo  tendrás  que  pulsar 
RETURN.  Si  quieres  cambiar  de  eti¬ 
queta  sólo  tienes  que  pulsar  INST/DEL 
para  borrar  la  etiqueta  que  el  ordenador 
te  ofrece  y  teclear  la  tuya. 

2.  Listar  programas  es  la  opción  que 
te  permite  ver  cómo  está  la  lista. 
Cuando  utilizas  esta  opción  los  pro¬ 
gramas  se  clasifican  automáticamente 
por  orden  alfabético.  Esta  ordenación 
se  hace  enteramente  en  código  máquina, 
con  la  rutina  de  ordenación  que  pu- 
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blicó  Diego  en  el  número  15.  En  las 
pantallas  aparecen  los  programas  enco- 
lumnados,  con  su  longitud,  su  tipo  y  el 
disco  en  el  que  están.  Esta  opción  la 
tendréis  que  utilizar  los  que  no  tengáis 
impresora. 

3.  La  tercera  opción  sirve  para  bus¬ 
car  un  programa/s  que  estén  en  la  lista. 
Tienes  que  introducir  el  dato  común  de 
los  programas  que  vas  a  buscar.  Por 
ejemplo,  si  introduces  “D”  aparecerán 
todos  los  programas  que  comiencen  por 
D.  También  puedes  introducir  el  nom¬ 
bre  completo  del  programa. 

4.  Mediante  esta  opción  podrás 
imprimir  la  lista.  Lo  primero  que  hay 
que  hacer  es  conectar  la  impresora, 
colocar  el  papel  al  principio  de  página  y 
pulsar  RETURN.  El  programa  entonces 
preguntará: 

QUIERES  LAS  CABECERAS?  (S/N) 

Las  cabeceras  son  una  forma  de  iden¬ 
tificar  los  discos.  Contienen  en  primer 
lugar  la  etiqueta  del  disco  y  su  cabecera 
+nombre+indentificador — junto  con  un 
comentario. 

Teclea  S  o  N  y  pulsa  RETURN.  Si 
tecleas  S  aparecerá  lo  siguiente: 

INTRODUCE  DISCO.  PULSA  RE¬ 
TURN. 

Ahora  debes  introducir  uno  de  los. 
discos  de  la  lista  (que  debería  ser  el  pri¬ 
mero,  aunque  no  es  obligatorio).  El 
ordenador  lo  inicializará  y  a  continua¬ 
ción  te  pedirá  la  etiqueta  de  ese  disco. 

Debes  tener  mucho  cuidado.  Teclea 
la  misma  etiqueta  que  tienen  los  pro¬ 
gramas  de  ese  disco.  Si  pones  otra  dife¬ 
rente  puedes  armarte  un  lío  tremendo  a 
la  hora  de  ir  a  consultar  la  lista. 

El  ordenador  mostrará  el  nombre  del 
disco  junto  con  la  etiqueta  que  le  has 
asignado  y  te  pedirá  un  comentario. 
Puedes  teclear  algo  — la  fecha  en  que  se 
hizo  la  lista,  si  ese  disco  tiene  algo  en 
especial,  tu  nombre,  etc. —  o  pulsar 
RETURN  para  dejarlo  en  blanco.  El 
ordenador  lo  imprimirá  todo  y  te  pre¬ 
guntará: 

MAS?  (S/N) 

Teclea  S  y  repite  el  proceso  hasta  que 
hayas  impreso  todas  las  cabeceras  de  los 
discos  que  se  encuentran  en  la  lista. 

Cuando  acabes,  pulsa  RETURN  para 
comenzar  a  imprimir  la  lista.  Si  quieres 
parar  mientras  el  ordenador  está  impri¬ 
miendo  pulsa  S  (hay  que  insistirle  un 
poco,  porque  mientras  imprime  no 
reconoce  él  teclado  demasiado  bien). 
Una  vez  parado  se  puede  continuar  o 
cancelar  con  C  o  Q. 

5.  Para  guardar  la  lista  que  tienes  en 
la  memoria  debes  usar  esta  opción. 
Teclea  “5”  y  pulsa  RETURN.  Antes  de 
grabar  la  lista  en  el  disco  se  ordenarán 
los  programas  como  en  la  opción  2,  a 
menos  que  ya  estén  ordenados.  Intro¬ 
duce  el  disco  en  el  que  vas  a  guardar  la 
lista.  El  ordenador  dirá: 

EL  NOMBRE  ES:  DISCOS.LST 

DE  ACUERDO?  (S/N) 

“Discos. lst”  es  el  nombre  con  el  que 


se  guardará  la  lista.  Si  quieres  darle  otro 
nombre  — la  primera  vez  no  es  necesa¬ 
rio,  pero  las  demás  sí —  di  que  no  estás 
de  acuerdo  y  teclea  el  nombre  que  más 
te  guste.  Una  buena  idea  es  irles  dando 
nombres  de  meses,  o  números  correla- 

La  lista  se  guarda  como  un  fichero 
secuencial.  Si  quieres  utilizarla  en 
tus  propios  programas,  lee  la  parte 
sobre  el  formato  de  las  variables  para 
que  veas  cómo  se  almacenan. 

6.  Para  leer  la  lista  introduce  el  disco 
en  el  que  la  grabaste.  El  ordenador  te 
hará  las  mismas  preguntas  que  en  la 
opción  5.  Se  tarda  más  en  leer  que  en 
grabar.  La  razón  es  la  siguiente: 
Cuando  se  graban  las  variables,  se  hace 
con  un  PRINT#,  mientras  que  cuando 
se  lee  no  se  hace  con  INPUT#,  sino  con 
GET#.  Si  se  hiciera  con  INPUT#,  algu¬ 
nos  caracteres  de  los  nombres  de  los 
programas  serían  considerados  como 
separadores  (coma,  punto  y  coma) 
cuando  en  realidad  no  lo  son. 

7.  Enviar  comando,  al  disco.  Esta 
opción,  u¡  puede  servir  para  validar  un 

brar  ficheros.  Es  igual  que  hacer  un 
OPEN  1,  8.  15  :  PR1NT#15... 

Teclea  el  comando.  El  ordenador  lo 
ejecutará  y  te  devolverá  al  menú.  Si  se 
ha  producido  algún  error  aparecerá  en 
el  recuadro  “estado  del  disco".  Cuando 
vuelvas  otra  vez  al  menú  el  mensaje 
habrá  desaparecido.  Ten  cuidado  al 
usar  el  comando  UJ  (hacer  reset  a  la 
unidad)  porque  la  puedes  dejar  “col¬ 
gada”.  Si  esto  sucede,  para  ¡él  programa 
con  STOP  v  teclea: 

GOTO  500 

Te  devolverá  al  menú.  De  este  modo 
nó-  perderás  los  datos.  Usa  este  truco 
cada  vez  que  te  veas  en  apuros. 

8.  Salir  del  programa.  ¡Asegúrate  de 
haber  grabado  antes  la  lista  o  todo  el 
trabajo  habrá  sido  inútil! 


Otras  opciones 


Como  nombre  de  fichero  de  lectura  se 
puede  dar  el  nombre  seguido  de  un  aste¬ 
risco.  Icón  lo  que  el  ordenador  leerá  el 
primer  fichero  que  encuentre  que 
comience  por  la  cadena  indicada. 

Estando  en  el  menú,  «trse  teclea  “M“ 
en  vez  de  un  numero,  el  ordenador  cal¬ 
culará  la  memoria  libre  real.  Esto  es  un 
problema,  porque  cuando  hay  muchas 
cadenas  — como  sucede  en  este  progra¬ 
ma —  el  ordenador  se  “entretiene” 
mucho  con  la  “garbage  collé'ction”  o 
recogida  de  basura. 

De  vez  en  cuando,  cuando  se  están 
introduciendo  programas,  listándolos  o 
incluso  grabándolos  o  leyéndolos,  el 
ordenador  se  queda  parado  durante 
unos  instantes.  ¡Tranquilos,  es  normal! 
todo  lo  que  se  produce  es  un  pequeño 
retraso. 

Cuantos  más  programas  tengáis  en  la 


memoria,  más  frecuentes  serán  estas  in¬ 
terrupciones  y  más  durarán.  No  hay 
solución  sencilla;  la  más  simple  consiste 
en  dimensionar  la  matriz  N$  al  mínimo 
(es  decir,  con  el  valor  más  aproximado 
al  número  de  programas  que  se  van  a 
introducir)  en  la  linea  20. 

Las  rutinas  del  programa 


El  programa  incluye  algunas  rutinas 
interesantes: 

Líneas  7-16  rutina  INPUT.  Sirve  para 
hacer  un  INPUT  simulado  — mediante 
GOSUB  8—.  Como  parámetros  de 
entrada  se  ajusta  Z  como  la  longitud 
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blicó  Diego  en  el  número  15.  En  las 
pantallas  aparecen  los  programas  enco- 
lumnados,  con  su  longitud,  su  tipo  y  el 
disco  en  el  que  están.  Esta  opción  la 
tendréis  que  utilizar  los  que  no  tengáis 
impresora. 

3.  La  tercera  opción  sirve  para  bus¬ 
car  un  programa/s  que  estén  en  la  lista. 
Tienes  que  introducir  el  dato  común  de 
los  programas  que  vas  a  buscar.  Por 
ejemplo,  si  introduces  “D”  aparecerán 
todos  los  programas  que  comiencen  por 
D.  También  puedes  introducir  el  nom¬ 
bre  completo  del  programa. 

4.  Mediante  esta  opción  podrás 
imprimir  la  lista.  Lo  primero  que  hay 
que  hacer  es  conectar  la  impresora, 
colocar  el  papel  al  principio  de  página  y 
pulsar  RETURN.  El  programa  entonces 
preguntará: 

QUIERES  LAS  CABECERAS?  (S/N) 

Las  cabeceras  son  una  forma  de  iden¬ 
tificar  los  discos.  Contienen  en  primer 
lugar  la  etiqueta  del  disco  y  su  cabecera 
+nombre+indentificador — junto  con  un 
comentario. 

Teclea  S  o  N  y  pulsa  RETURN.  Si 
tecleas  S  aparecerá  lo  siguiente: 

INTRODUCE  DISCO.  PULSA  RE¬ 
TURN. 

Ahora  debes  introducir  uno  de  lo» 
discos  de  la  lista  (que  debería  ser  el  pri¬ 
mero,  aunque  no  es  obligatorio).  Eli 
ordenador  lo  inicializará  y  a  continua¬ 
ción  te  pedirá  la  etiqueta  de  ese  disco. 

Debes  tener  mucho  cuidado.  Teclea 
la  misma  etiqueta  que  tienen  los  pro¬ 
gramas  de  ese  disco.  Si  pones  otra  dife¬ 
rente  puedes  armarte  un  lío  tremendo  a 
la  hora  de  ir  a  consultar  la  lista. 

El  ordenador  mostrará  el  nombre  del 
disco  junto  con  la  etiqueta  que  le  has 
asignado  y  te  pedirá  un  comentario. 
Puedes  teclear  algo  — la  fecha  en  que  se 
hizo  la  lista,  si  ese  disco  tiene  algo  en 
especial,  tu  nombre,  etc. —  o  pulsar 
RETURN  para  dejarlo  en  blanco.  El 
ordenador  lo  imprimirá  todo  y  te  pre¬ 
guntará: 

MAS?  (S/N) 

Teclea  S  y  repite  el  proceso  hasta  que 
hayas  impreso  todas  las  cabeceras  de  los 
discos  que  se  encuentran  en  la  lista. 

Cuando  acabes,  pulsa  RETURN  para 
comenzar  a  imprimir  la  lista.  Si  quieres 
parar  mientras  el  ordenador  está  impri¬ 
miendo  pulsa  S  (hay  que  insistirle  un 
poco,  porque  mientras  imprime  no 
reconoce  él  teclado  demasiado  bien). 
Una  vez  parado  se  puede  continuar  o 
cancelar  con  C  o  Q. 

5.  Para  guardar  la  lista  que  tienes  en 
la  memoria  debes  usar  esta  opción. 
Teclea  “5”  y  pulsa  RETURN.  Antes  de 
grabar  la  lista  en  el  disco  se  ordenarán 
los  programas  como  en  la  opción  2,  a 
menos  que  ya  estén  ordenados.  Intro¬ 
duce  el  disco  en  el  que  vas  a  guardar  la 
lista.  El  ordenador  dirá: 

EL  NOMBRE  ES:  DISCOS.LST 

DE  ACUERDO?  (S/N) 

“Discos. lst”  es  el  nombre  con  el  que 


se  guardará  la  lista.  Si  quieres  darle  otro 
nombre  — la  primera  vez  no  es  necesa¬ 
rio.  pero  las  demás  sí —  di  que  no  estás 
de  acuerdo  y  teclea  el  nombre  que  más 
te  guste.  Una  buena  idea  es  irles  dando 
nombres  de  meses,  o  números  correla- 

La  lista  se  guarda  como  un  fichero 
secuencial.  Si  quieres  utilizarla  en 
tus  propios  programas,  lee  la  parte 
sobre  el  formato  de  las  variables  para 
que  veas  cómo  se  almacenan. 

6.  Para  leer  la  lista  introduce  el  disco 
en  el  que  la  grabaste.  El  ordenador  te 
hará  las  mismas  preguntas  que  en  la 
opción  5.  Se  tarda  más  en  leer  que  en 
grabar.  La  razón  es  la  siguiente: 
Cuando  se  graban  las  variables,  se  hace 
con  un  PRINT#,  mientras  que  cuando 
se  lee  no  se  hace  con  INPUT#,  sino  con 
GET#.  Si  se  hiciera  con  INPUT#,  algu¬ 
nos  caracteres  de  los  nombres  de  los 
programas  serían  considerados  como 
separadores  (coma,  punto  y  coma) 
cuando  en  realidad  no  lo  son. 

7.  Enviar  comando  al  disco.  Esta 
opción  te  puede  servir  para  validar  un 
disco,  formatear  uno  nuevo  o  renom¬ 
brar  ficheros.  Es  igual  que  hacer  un 
OPEN  1.  8.  15  :  PRINT#I5.... 

Teclea  el  comando.  El  ordenador  lo 
ejecutará  y  te  devolverá  al  menú.  Si  se 
ha  producido  algún  error  aparecerá  en 
el  recuadro  "estado  del  disco".  Cuando 
vuelvas  otra  vez  al  menú  el  mensaje 
habrá  desaparecido.  Ten  cuidado  al 
usar  el  comando  IJJ  (hacer  reset  a  la 
unidad)  porque  la  puedes  dejar  "col¬ 
gada”.  Si  esto  sucede.  para&)  programa 
con  STOP  v  teclea: 

GOTO  500 

Te  devolverá  al  menú.  De  este  modo 
no  perderás  los  datos.  Usa  este  truco 
cada  vez  que  te  veas  en  apuros. 

8.  Salir  del  programa.  ¡Asegúrate  de 
haber  grabado  antes  la  lista  o  todo  el 
trabajo  habrá  sido  inútil! 


Otras  opciones 


Como  nombre  de  fichero  de  lectura  se 
puede  dar  el  nombre  seguido  de  un  aste¬ 
risco.  con  lo  que  el  ordenador  leerá  el 
primer  fichero  que  encuentre  que 
comience  por  la  cadena  indicada. 

Estando  en  el  menú.'ttrsc  teclea  "M" 
en  vez  de  un  número,  el  ordenador  cal¬ 
culará  la  memoria  libre  real.  Esto  es  un 
problema,  porque  cuando  hay  muchas 
cadenas  — como  sucede  en  este  progra¬ 
ma —  el  ordenador  se  “entretiene” 
mucho  con  la  “garbage  collé'ction”  o 
recogida  de  basura. 

De  vez  en  cuando,  cuando  se  están 
introduciendo  programas,  listándolos  o 
incluso  grabándolos  o  leyéndolos,  el 
ordenador  se  queda  parado  durante 
unos  instantes.  ¡Tranquilos,  es  normal! 
todo  lo  que  se  produce  es  un  pequeño 

Cuantos  más  programas  tengáis  en  la 


memoria,  más  frecuentes  serán  estas  in¬ 
terrupciones  y  más  durarán.  No  hay 
solución  sencilla;  la  más  simple  consiste 
en  dimensionar  la  matriz  N$  al  mínimo 
(es  decir,  con  el  valor  más  aproximado 
al  número  de  programas  que  se  van  a 
introducir)  en  la  linea  20. 


Las  rutinas  del  programa 


El  programa  incluye  algunas  rutinas 
interesantes: 

Líneas  7-16  rutina  INPUT.  Sirve  para 
hacer  un  INPUT  simulado  —mediante 
GOSUB  8—,  Como  parámetros  de 
entrada  se  ajusta  Z  como  la  longitud 
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O  IBHNEZ 

1  POKE53280 , 0 : P0KE5328 1 , 0 : PR I NTCHR*  < 1 4 ) " 
CCLR3CCRSR03  CRVSON3  CSHIFTU3N  MOMENTO... 
“ :GOSUB19:GOSUB2000:GOTO499 

2  PRINT" CCRSRD3 C2SPC3  CRVSON3  CSHIFT03RDE 
NfiNDO  PROGRBMBS. .  .  CCRSRD 3 “ :SYS828,N*<0> : 
SH=1 : RETURN 

3  PRINT" CCLR3CCRSRD3  C RVSON 3 C SH I FTC 3 HLCU 
LfiNDO. . .  “ 

4  FR=FRE ( 0 ) +2t 1 6* (  FRE  (0X0):  RETURN 

5  REM  SUSTITUIR  Lfi  LINER  4  POR:  “4  RETUR 
N"  PflRfi  GRNRR  VELOCIORO 


10  H=15:CH=0:IF(K*<"  ,,ORK*>"<-"ORK$=CHR*( 
34)  >  RNDK*OCHR*  (  1  3  >  RNDKÍOCHR*  (  20  )  THEN9 

1 1  I FK*=CHR*  < 20  )  RNDW*> " “ THENW*=LEFT* < W* , 
LEN(W$)-1) :PRINT"  C2CRSRL3"; :G0T014 

1 2  I FK*=CHR*  (13)  THENPR I NT "  " : RETURN 

1 3  I FLEN  (  W*  )  <ZRNDK*OCHR*  (  20  )  THENW*=W*+K 
*  :PRINTKÍ; 

14  H=H+ 1 : I FH< 1 5THEN9 

1 5  H=0 : 1 FCHTHENCH=0 : PR I NT ”  C  CRSRL 3 “ ; : GOT 
09 

16  CH=1 :PRINT" CRVS0N3  [RVS0FF3 CCRSRL3 " ; : 
G0T09 

17  PRI NT "CCRSRD 3  CSHIFTI 3NTR0DUCE  EL  DIS 
CO.  CSHIFTP3ULSR  CRVS0N3 CSHIFTR3 CSHIFTE3 
CSHIFTT3  CSHIFTU3  CSHIFTR3  CSHIFTN3  CRVS0FF3 
.  "  ;  :  Z=0 :  G0SUB7 : RETURN 

18  PR I NT " C  CRSRD  3  C  8SPC  3  C  SH I FTP  3  ULSR  ÍRVSO 
N3  CSHIFTR3  CSHIFTE3  CSHIFTT3  CSHIFTU3  CSHIFT 
R3CSHIFTN3C RVSOFF 3  PRRR  MENU .  "  ;  : Z=0 : GOSU 
B7: RETURN 


49  S*=S*+T*(1 
) ,2) : RETURN 

50  0PEN1,8,2, 
60  FORI=0TO1« 


70  PRI  NT  "CCRSRD  3  CSHIFTE3L  DISCO  (“OI*") 
ES  C RVSON 3 "DN*: PRI NT 

71  PRINT"  C RVSON 3  CSHIFTP3RG  C RVSOFF 3  CR 
VS0N3  CSHIFTL30N  C RVSOFF 3  CRVS0N3 C3SPC3 C 
SH I FTN  3  OMBRE  C 3SPC 3  C  RVSOFF  3  C  2SPC 3  C  RVSON  3 
CSHIFTT3 IPOZDISCO  " :PRINT 

75  F0RI=1T089:GET#1,R*:NEXT 
96  GET# 1 , T V* : I FSTTHEN200 
100  GET#l,R*,fl* 

105  PR*="" :F0RI=1T016:GET41,R*:PR*=PR*+R 


121  I FL*= “ " THENL*=CHR*  < 0 ) 

122  IFH*=“"THENH*=CHR*<0) 
125  LE*=L*+H# 


1 28  I FTV*= " " ORTV*=CHR* (128) THEN 1 40 
130  N*(PR)=PR*+TV*+LE*+,V"+DI» 

132  R=PR:GOSUB40:PRINT"  ("PR"):  "S* 
135  PR=PR+1 

140  DCOUNTER=DCOUNTER+ 1 
1 42  I FDC0UNTERO8THENGET#  1  ,  ñ*  ,  B*  :  G01 
144  DCOUNTER=0 : GOT 096 
200  CL0SE1 :SH=0:GOSUB18 

499  G0SUB3 

500  PR INT"CCLR3C CRSRD 3  CRVS0N3 CSHIF1 
CULflNDO. . . " :GOSUB990 


502  PRINT" CCLR 3 CCRSRD 3  CWHT3 C RVSON 3 C 10SP 
C3CRVSOFF3" 

503  PRINT"  CRVS0N3C 2SPC 3CSHIFTD3ISCOSC 2S 
PC  3  C  C0MM7 3  C  RVSOFF  3  C  C0MM8 3  C  2SPC 3 ( C ) 1 985 
BV  CSHIFTH3 CSHIFTI 3 CSHIFTB3" 

504  PRINT"  CWHT3 CRVS0N3 C 10SPC3 CC0MM73  CR 
VSOFF  3 " 

505  PR  I N T  “  C  2SPC  3  C  C0MM7  3  C  RVSON  3  C  1 0COMM I  3  C 
RVSOFF  3  C  4SPC 3  C  MHT  3  C  3C0MM I 3 " 

520  PRINT" C8SPC3 CCOMM73 CSHIFTE3LIGE  :  CW 
HT 3  C RVSON 3  1  C RVSOFF 3  C C VN 3  1SHIFTR] URDIR 
PROGRHMHS" 

I»  521  PRINT"  C  16SPC3  CWHT 3  C RVSON 3  C3SHIFT*]  CR 
VSOFF 3" 

f  525  PRINT"  CBLU3  CC0MMH3  C 12SHIFT#3  CC0MMS3 
.  CWHT 3  C RVSON 3  2  C R VSOFF 3 C CVN 3  CSHIFTL3 IS 


máxima  permitida  y  W$  como  texto  ya 
tecleado.  Lo  del  texto  ya  tecleado  se  uti¬ 
liza  por  ejemplo  con  las  etiquetas,  o  en 
general  con  entradas  en  las  que  se  sabe 
lo  que  va  a  teclear  el  usuario.  De  este 
modo  sólo  hace  falta  pulsar  RETURN 
para  aceptarlo. 

Si  se  entra  en  la  línea  7  (con  GOSUB 
7)  W$  se  borra.  Como  salida  de  la 
rutina  está  la  misma  W$.  Esta  rutina  se 
puede  utilizar  en  cualquier  programa. 

Líneas  40-49  construyen  la  cadena  S$. 

Lineas  50-144  imprimen  el  directorio 


Líneas  50-144  imprimen  el  directorú 
i  la  pantalla  (opción  1)  rellenando  la 
atriz  N$.  Es  la  rutina  más  complicada 
el  corazón  del  programa. 

Líneas  800-895  es  la  rutina  de  impre 
5n.  La  lista  se  edita  a  tres  columnas 
en  ordenadas  (por  orden  alfabético  di 
riba  a  abajo  en  cada  columna).  Est( 


se  hace  dividiendo  el  número  total  de 
programas  por  tres  y  calculando  los  tres 
de  la  misma  fila  a  la  vez.  Se  encargan  de 
ello  las  líneas  826-835.  NF  es  el  número 
de  programas.  La  cadena  S$  se  cons¬ 
truye  en  la  subrutina  50  y  contiene 
siempre  eT  mismo  número  de  caracteres, 
para  que  no  haya  que  calcular  los 
tabuladores,  sino  imprimir  todo  se¬ 
guido. 


El  programa  utiliza  dos  variables 
muy  importantes.  La  matriz  N$  y  la 
cadena  S$.  La  primera  contiene  los 
datos  sobre  los  programas  y  la  segunda 
queda  preparada  para  ser  sacada  por  la 
impresora. 
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TBR  PROGRAMAS 

526  PRINT"  CBLU3 CSHIFT-3 CVEL3 ESHIFTP3ROG 
RAMAS  ENCBLU3 CSHIFT-3  CWHT3 CRVSON3 C3SHIF 
T*3  CRVSOFF3 " 

530  PRINT"  CBLU 3  CSHIFT— 3  C  VEL  3LISTA  :  CWHT 3 
"PR- 1-<PR=0)TABC 14}  " CBLU 3  CSHIFT— 3  CWHT 3  C 
RVSON 3  3  C  R VSOFF  3  C  CVN  3  CSHIFTB3USCAR  PRO 
GRAMAS 

531  PRINT"  C BLU 3  C COMMZ 3  C 1 2SH I FT* 3  C COMMX 3 
CWHT3  CRVSON3  C3SHIFT#3 CRVSOFF3 “ 

535  PRINT"  CBLU3  CCOMMA3  C 12SHIFT*3  CCGMMS3 
CWHT3  CRVSON3  4  C RVSOFF 3  C CVN 3  CSHIFTI 3MP 

RIMIR  LISTA 

536  PRINT"  CBLU3  CSHIFT-3  E VEL3  CSHIFTM JEMO 
RIA  CWHT3CRVSON3  CSHIFTM3  C RVSOFF 3 C VEL 3 

C BLU 3  C SH I FT- 3  C  WHT 3  C RVSON 3  C 3SHIFT* 3  C RVSO 
FF3" 

540  PRINT"  CBLU 3 CSHIFT— 3 CVEL3LIBRE : CWHT 3 
"MID*CSTR*<FR),23TAB(13)"CBLU3  CSHIFT- 3 
CWHT3  CRVSON3  5  C RVSOFF  3  C CVN 3  CSHIFTG3UAR 
DAR  LISTA 

541  PRINT"  CBLU3  CCOMM23  C  12SHIFT*3  CCOMMX3 
C  WHT  3  C  RVSON  3  C  3SH I FT*  3  C  RVSOFF  3 " 

545  PRINT"  CBLU3  CCOMMA3  C  12SHIFT*3  CCOMMS3 
CWHT3CRVSON3  6  CRVSOFF3 CCVN3  CSHIFTL3EE 

R  LISTA 

546  PRINT"  CBLU3  CSHIFT-3  CVEL3  CRVSON3  CSHI 
FTE3STADO  DISCOCRVSOFF3 CBLU3 CSHIFT-3  CWH 
T  3  C  RVSON  3  C  3SHI FT*  3  C  RVSOFF  3 " 

550  PRINT"  CBLU3 CSHIFT-3 CVEL3 "LEFT*<T*, 1 
23 " CBLU3CSHIFT-3  C WHT 3 C RVSON 3  7  C RVSOFF 3 
CCVN3  CSHIFTE3NVI AR  COMANDO 

551  PRINT"  CBLU3CSHIFT-3CVEL3"MID*i;T*,13 
, 123 “CBLU3 CSHIFT-3  CWHT3 CRVSON3 C3SHIFT*3 
C RVSOFF 3" 

560  PRINT"  CBLU3  CCOMMZ3  C 12SHIFT*3  CCOMMX3 
CBLU 3  C WHT 3  C RVSON 3  8  C RVSOFF 3  C CVN 3  CSHIF 
TQ3UITRR  PROGRAMA 

562  PR I NT “ C 1 6SPC 3  C  WHT  3  C  RVSON  3  C  3COMMI 3  C  RV 
SOFF  3  “ 

570  PRINT" CCRSRD3 C4SPC3 CWHT3 CSH IFTT3U  OP 

C I ON  < 1 -9  3  2 " í : Z= 1 : G0SUB7 : A= VAL  < W* 3 

575  I FW$= " M " THENG0SUB3 : GOTO500 

580  UNAGOSUB600 , 700 , 900 ,800,1 000 ,1100,12 

00,1400 

585  I F SW= 1 THEN50 1 
590  GOTO500 

599  STOP 

600  PRINT" CCLR3CCRSR03  CRVSON3  CSHIFTI 3N 
TRODUCIR  PROGRAMAS  C RVSOFF 3" 

610  G0SUB17 

630  0PEN15,8, 15, " I " :CL0SE15 

640  GOSUB990 

641  IFE=0THEN650 

642  PR I NT " C  CRSRD  3  CSHIFTE  3RROR !  :  C RVSON 


3 "A*" CCRSRR3 “B*"CCRSRR3 "C*“ CCRSRR3 "C*REA 

643  PRINT"! CRSRD 3  LO  INTENTO  DE  NUEVO  <S 
/N3  :N“  ,-  :W*="N"  ;Z=1  :G0SUB8 

644  I FW*= “ N " THENRETURN 

645  I FW*= " S" THEN630 

650  PRINT"  CCRSRD3  CSHIFTI  INTRODUCE  ETIQU 
ETA:“; :W*=CHR*<RSC(DI*3+13:PRINTW*; :Z=1 : 
G0SUB8 

652  DI*=W*:IFDI*=""THENDI*="  “ 

670  GOSUB50 :RETURN 

700  GOTO740 

701  PRINT" CCLR3 CSHIFT  SPC3CBLU3  CCOMMA3 C 
5SH I FT*  3  C  COMMR 3  C 1 8SH I FT*  3  C  COMMR 3  C  4SH I FT* 
3CCOMMR3C  5SH I FT*  3  C COMMS  3 “ 

705  PRINT"  CSHIFT  SPC3 CSHIFT-3  CVEL3CSHI 
FTL30NC6LU3  CSHIFT-3 C2SPC3 CVEL3 CSHIFTN30 
MBRE  PROGRAMA  C BLU 3 CSHIFT-3 C VEL 3 CSHI FTT 3 
IPOCBLU3  CSHIFT-3  C  VEL  3  DISCOCBLU  3  CSHIFT-3  " 
710  PRINT" CSHIFT  SPC3  CCOMMQ3  C5SHIFT*3  CS 
HIFT+3  C 18SHIFT*3  CSHIFT+3  C4SHIFT*3  CSHIFT+ 
3  C5SHIFT*3  CCOMMW3 " 

720  FORT=  1 T02 1  :  PR  I  NT  “  C  2SPC  3  C  SH  I  FT-  3  C  5SPC 
3  CSHIFT-3  C 1 8SPC3  CSHIFT-3  C4SPC3 CSHIFT-3  C5 
SPC3 CSHIFT-3 “ :NEXT 

730  PRINT"  CSHIFT  SPC3 CCOMMZ3 C5SHIFT*3 CC 
OMME  3  C 1 8SH I FT*  3  C  COMME  3  C  4SH I FT*  3  C  COMME  3  C  5 
SH I FT*  3  C  COMMX  3  C  HOM  3  C  2CRSRD 3  C  VEL  3 “ : RETURN 

740  PRINT" CCLR3CCRSRD3  C RVSON 3  CSHIFTL3 I 
STAR  PROGRAMAS  CRVSOFF3" : IFPR=0THENPRINT 
“ C CRSRD 3  CRVSON3  CSHIFTN30  HAV  PROGRAMAS" 
:GOTO890 

741  IFSH=0THENGOSUB2 

742  GOSUB70 1 : L I NE=0 : FOR I =0TOPR- 1 s  G0SUB74 
4:NEXT:GOTO760 

744  R=  I  : GOSUB40 : PR I NTTAB <  3  > LTAB <103 LEFT* 
<N*<  I >,16>TAB<28>MID*<S*,21,4>; 

746  PRINTTAB<343RIGHT*CS*,13 
748  LINE=LINE+1 : IFLINLC1 9THEN755 
750  PRINT" CCRSRD3  C5CRSRR3  CWH I 31 RVSON 3  C2S 
PC3CSHIFTP3ULSA  CSHI FTP 3 CSHIFTE 3 CSHIF r T ) 
CSHIFTU3 CSHIFTR3 CSHIFTN3  PARA  SEGUIR. CRV 
SOFF3CCRSRR3"; :Z=0sGOSUB7 

754  LINE=0:GOSUB?01 

755  RETURN 

760  PR  I  NT  "  C  HOM  3  C  23CRSRD  3  C  8CRSRR  3  C WHT  3  C  RV 
SON 3  CSHIFTP3ULSA  CSHIFTR 3 CSHIFTE 3 CSHIFT 
T3CSHIFTU3CSHIFTR3  CSHIFTN3  PARA  MENU. CRV 
SOFF  3  C  CRSRR3 " ; 

762  Z=0:GOSUB7:RETURN 

800  PRINT" CCLR3CCRSRD3  C RVSON 3  CSHIFT I 3M 
PRIMIR  LISTA  C RVSOFF 3 ” 

806  I FPR=0THENPR INT “ C  CRSRD  3  C RVSON 3  CSHIF 
TN 30  HAV  PROGRAMAS  “ :GOTO890 

807  PRINT" CCRSR03 C3SPC3CSHIFTP 3 REPARA  LA 


N$  ha  de  contener  varios  datos:  el  Consejos  finales 

nombre  del  programa,  su  longitud,  tipo 

de  fichero  que  es  y  disco  en  el  que  se  El  programa  funciona  perfectamente 
encuentra.  Todo  ello  se  almacena  en  hasta  con  700  programas,  que  es  lo  que 

sólo  21  caracteres,  de  la  manera  he  comprobado.  De  aquí  en  adelante  las 

siguiente:  “recogidas  de  basura”  son  cada  vez  más 

16  caracteres  para  el  nombre.  frecuentes  y  largas.  Si  queréis  evitar 

1  byte  tipo  de  fichero.  tener  que  esperar  cada  vez  que  calcula  la 

2  bytes  bloques  que  ocupa  (alto/  memoria  libre  (línea  4)  cosa  que  se  hace 

bajo).  cada  vez  que  se  muestra  el  menú,  sim- 

1  carácter  separador.  plemente  colocad  en  esta  línea  un 

1  byte  etiqueta.  RETURN  al  principio.  No  sabréis  cuál 

De  este  modo,  cuando  se  clasifican  es  la  memoria  libre  que  os  queda,  pero 
por  orden  alfabético,  se  hace  en  función  ganaréis  algo  de  velocidad, 
del  nombre.  En  una  sola  variable  se  Los  que  tengáis  muchísimos  discos, 
tiene  almacenado  lo  mismo  que  en  cua-  no  tendréis  suficiente  con  etiquetas  de 

tro.  Es  un  ahorro  de  memoria,  aunque  una  sola  letra,  y  no  os  cabrán  todos  los 

hace  un  pelín  más  difícil  el  manejo,  al  programas  a  la  vez.  Lo  mejor  será  crear 

tener  que  separar  de  nuevo  las  partes  varias  listas  y  grabarlas  con  diferentes 

qüe  se  van  a  utilizar.  nombres.  ■ 
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IMPRESORA.  CSHIFTP1ULSA  CRVSON] CSHIF TR] 
CSHIFTE]  CSHIFTT] CSHIFTU]  CSHIFTR]  CSHIFTN] 

C  RVSOFF ] .  "  ;  :  Z=0 : G0SUB7 

310  PR I  NT  "  C CRSRO 3  CSHIFTQ]UIERES  LHS  CRB 
ECERAS  <  S/N  >  :  S  "  ;  :  W»=  “  S  "  :  Z=  1  :  G0SUB8 
812  I FW*= " S " THEN I$="@" : GOSUB 1 500 
815  PRINT" CCRSRD]  PULSA  CRVSON] CSHIFTR] C 
SHIFTE] CSHIFTT] CSHIFTU] CSHIFTR] CSHIFTN] C 
RVSOFF]  PRRR  COMENZAR.  " ; :Z=0 sGOSUBZ 

819  PRINT" CCRSRD]  CSHIFTPIRRR  PRRRR  PULS 
R  C RVSON ]  CSHIFTS]  C RVSOFF 2" 

820  OPENl,4:PRINT#l,PT*"  "PT*"  "PT*:PRIN 
T#1,PS»"  "PS»“  "PS* 

825  NF=INT <  <PR~1 )Z3> 

826  FORI=0TONF 

827  R=I :GOSUB40 :PRINT#1 ,S»; "  “ ; 

828  R=NF+I+1 :GOSUB40:PRINT#1,S*;" 

829  R= I NT  <  NF #2+ 1  +2  >  :  I  FR<=  <  PR- 1  >  THENGOSUB 
40:PRINT#1,S»; 

835  PRINT#1 

840  GETA»  s IFR*<>"S"THENNEXT :GOTO890 
842  PRINT" CCRSRD]  CSHIFTI IMPRESION  CRNCE 
LROfl  :  " 

845  PR I NT “ C CRSRO ]C2SPC]C RVSON]  CSHIFTC] 

C RVSOFF]  PRRR  SEGUIR  O  CRVSON]  CSHIFTQ] 

C RVSOFF]  PRRR  QUITAR : " ; :2=1 :G0SUB7 

846  IFW»="C"THENA*="" :GOTO840 

850  I  FWiO  "  Q  "  THENPR I  NT  "  C  3CRSRUJ  ”  : G0T0845 

855  G0T0895 

890  GOSUB 18 

895  CLOSE1 sRETURN 

900  PRINT"  Ct-LR] CCRSRD]  CRVSON]  CSHIFTB1U 
SCRR  PROGRAMA  " 

901  I  f  I  ’k=Ú f HENPR I NT "  C CRSRO ]  CRVSONKSHIF 
TN JO  HMV  PROGRAMAS! RVSOFFJ" :GOTO890 

905  PR I  NT “ C CRSRO ]  CSHIFTI INTRODUCE  ORTO 
COMUN : " ; : Z= 1 6 ! GOSUB7 
910  GOSUB ’01 :LINE=0 
920  FORI=oTOPR-l 

925  IFLEFT#(N»( I > , LENÍW»  >  > =W*THENG0SUB74 
4 

930  NEXT:GOTO760 

990  E=0:OPEN15,8,15:INPUT#15,A*,B»,C»,D* 
:CL0SE15 

992  IFA*<>"00"THENE=1 
994  RETURN 

1000  PRINT" CCLR] CCRSRD]  CRVSON]  CSHIFTQ] 
UAROAR  LISTA  C RVSOFF ]  "  :  I FPR=0THENPR I NT "  C 
CRSRO]  CRVSON] CSHIFTNJO  HAV  PROGRAMAS C RV 
SOFF ] " ¡GOTO890 

1001  IFSH=0THENGOSUB2 

1002  GOSUB 17 

1003  OPEN15,8, 15, " I " : CLOSE 15: GOSUB990 

1004  I FE=0THEN 1015 

1006  PR I NT " C CRSRD ]  C SHIFTE2RROR !  :  CRVSO 

N]  "  A*"  CCRSRR]  "B*"  CCiV  ,RR]  "Ci" CCRSRR] "C* 
1008  PRINT "CCRSRD]  CSHIFTI INTENTAR  DE  NU 
EVO  (S/Nl :N" ; sW*="N" : 7=1 :GOSUB8 
1010  IFW#="S"THEN1000 
1012  RETURN 

1015  PRINT" CCRSRD]  CSHIETE2L  NOMBRE  ES:" 

1016  PRINT  "CCRSRD]  CSHIF  1D2E  ACUEpO  '  ■ :  s. ' 
N> :S" ; :W»="S" :Z=1 :G0SUB8 

1017  IFW#="S" THEN 1025 

1018  PR I NT “ C CRSRD ]  CSHIFTI J NTRÜOUCE  NuMB 
RE:"; :Z=16:G0SUB7 :F*=W* 

1025  0PEN2,8,2,F*+",S,W" 

1027  PRINT#2,PR-1 :PRINT 

1028  FORI=0TOPR— 1 :PRINT#2,NS< I >  :PRINT"  C 
SHIFTE]SCRIBIENDO : " I “ CCRSRU] " :NEXT :CLOSE 

2 

1029  PRINT :GOSUB990:IFETHEN 1006 

1030  RETURN 

1100  PRINT" CCLR] CCRSRD]  CRVSON]  CSHIFTL] 
EER  LISTA  C RVSOFF]" 

1101  GOSUB 17 

1102  0PEN15,8, 15, " I " : CLOSE 15: GOSUB990 
1104  IFE=0THEN1 1 15 

1106  PRINT"  CCRSRD]  C SH I FTE ] RROR  !  :  CRVSO 

N ] " A* " C  CRSRR ] " B# " C  CRSRR ] " C* " C  CRSRR ] " C* 
1108  PRINT" CCRSRD]  CSHIFTI INTENTAR  DE  NU 
EVO  CS/N)  :N" ; :W*="N" :Z=1 :G0SUB8 
1110  I FW#= " S " THEN 1 1 00 


1112  RETURN 

1115  PRINT" CCRSRD]  CSHIFTE]L  FICHERO  ES: 
"F* 

1116  PRINT" CCRSRD]  CSHIFTD2E  ACUERDO?  <S 
/N) :S“ ; :W*="S" :Z=1 :G0SUB8 

1117  I FW$= " S " THEN 1 1 20 

1118  PRINT" CCRSRD]  CSHIFTI ]NTRODUCE  NOMB 
RE : " ; : Z= 1 6 : G0SUB7 : F*=W* 

1120  0PEN2,8,2,F#+",S,R“  :CL0SE2 

1 1 22  GOSUB990 : I FETHENCL0SE2 : GOTO 1 1 06 

1 123  0PEN2,8,2,F*+",S,R” :PRINT : INPUT#2,N 

1124  FORI=PRTOPR+N: PRINT"  C SH I FTL ] EVENDO 
:“ I" CCRSRU]" 

1 1 25  FOR J= 1 T022 : GET#2 , A# : I FA#= " " THENA*=C 
HRTC0.) 

1126  N*< I >=N*< I >+A* :NEXT :N*< I ]=LEFT*CN*< 

11.211 

1127  NEXT:SH=0:IFPR=0THENSH=1 

1128  PR=PR+N+ 1  :  CL0SE2  :  RETURN 

1200  PRINT"ClLRKCRSRD]  CRVSON]  CSHIFTEJN 
VIAR  COMANDO  Ai  D I SCO C RVSOFF]" 

1205  PRINT  "CCRSRD]  CSHIFTE]SCRIBE  EL  COM 
ANDO : “ ; :Z=20 :GOSUB7 

1210  0PEN15,8,15.W#:INPUT#15,A*.BÍ,C*.D* 

: CLOSE 15 

1240  PRINT" CCRSRD]" ; :G0SUB18:SW=1 : RETURN 
1400  PRINT" CCLR] CCRSRD]  CRVSON]  CSHIFTQ] 
UITAR  PROGRAMA  " 

1410  PRINT  "CCRSRD]  ,í  SHIFTE]STAS  SEGURO  < 

S/Nl :N" ; :W*="N“ :Z=1 :G0SUB8 

1420  IFW*<>"S"THENRE7URN 

1430  END 

1500  GOSUB 17 

1502  0PEN15.8, 15, " I " :CLOSE15:GOSUB990 

1503  I F AF= " 00 " THEN 1 525 

1505  PR I NT " C CRSRD ]  CSHIF TE1RR0R !  :  CRVSO 

N] "Aí " CCRSRR] "BS“ CCRSRR] "C*" CCRSRR] "C* 
1510  PRINT" CCRSRD]  CSHIFT I  INTENTAR  DE  NU 
EVO  <S/N1 :N" ; :W*="N" :Z=1 :00SUB8 
1515  IFW*="N"THENRETURN 
1520  IFWÍ="S" THEN 1500 

1525  PR I NT " C CRSRD ]  CSHIFTI INTRODUCE  ETIQ 
UETA : "  ;  :  I*=CHR*<ASC<  I#  >  + O  :PRINT  I* ;  :W*=I 

1 530  Z= 1 : G0SUB8 : I *=W* :OPEN 1,8,2,"»" 

1540  FORI=0TO141 :GET#1 ,A»:NEXT 

1550  NA»="" :F0RI=1T023:GET#1,A*:NA*=NH*+ 

ñ»:NEXT:CLOSEl 

1560  PRINT" CCRSRD]  CSHIFTQ] ISCO  <"W»">  E 
S  CRVSON]" NA* 

1570  PR I NT " C CRSRD ]  CSHIFTC]OMENTARIO : " ; : 
Z=26 :G0SUB7 

1580  0PEN1 ,4 :PRINT#1 , "EL  DISCO  í  "I*"  > C 
SHIFT  SPC]ES  :  "CHR»<  18>NA»CHR*<  146.)  "  C2S 
PC] "W* : CLOSE 1 

1585  PRINT "CCRSRD]  MAS  <S/N) :S“ ; :W»="S" : 
Z= 1 : G0SUB8 : I FW*= " S “ THEN 1 500 
1590  RETURN 

2000  1=828 :REM  RUTINA  DE  ORDENACION  POR 
DIEGO  ROMERO  (VER  COMMODORE  WORLD  NO. 15) 

200 1  RE  ADA :  I F  A=256THENRETURN 

2002  POKEI  ,A  :  1  =  1  +  1  :GOTO2001 

2010  DATA32.253, 174,32, 139, 176, 133, 106 

201 1  DATA  132, 107,  160,0,  177,  106,240,  122 

2012  DATA133, 1 10,200, 177,106,153,110,0 

2013  DATA192,2,208,246, 165, 106,  133,108 

2014  DATA165, 107,  133, 109,24, 165,  108,105 

2015  DATAS, 133, 108, 144,2,230, 109, 160 

2016  DATA0, 177, 108,240,71 ,133,252,197 

2017  DATA1 10, 144,2, 165, 110, 133,255,200 

2022  DATA177, 108, 153,252,0, 192,2,208 

2023  DATA246, 160,0, 177, 1 1 1 ,209,253,240 

2024  DATA4 ,144, 209 ,176,9, 200 ,196, 255 

2025  DATA208, 241, 196, 110, 176, 198, 160,0 

2026  DATA177, 106,170,177, 108,145,106, 153 

2027  DATA1 10,0, 138, 145, 108,200, 192,3 

2028  D AT A208 , 238 , 160,0, 177, 106, 133,255 

2029  DATA169, 0,240, 168,24, 165, 106, 105 

2030  DATA3, 133, 106,144,2,230, 107,24 

2031  DATA144, 128,96,256 
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*$imo,  si 


SERVICIOS  DE  INFORMATICA 


PROGRAMAS 

PROFESIONALES 

O  COMMODORE 


0 

\im¡o,SL 


GESTION 

COMERCIAL 


PAQUETE  INTEGRADO  DE  FACTURACION  Y  CONTROL  DE  STOCKS 

— Capacidades  de  ficheros  programabas  por  el  usuario  Iclienles.  aniculos.  proveedores). 

— Control  de  entradas/  salidas  de  almacén. 

— Inventano  permanente  e  inventano  bajo  mínimos. 

— Gestión  de  reserva  de  pedidos. 

— Facturación  y  emisión  de  recibos. 

— Posibilidad  de  facturar  aniculos  no  existentes  (facturación  directa). 

— Distintos  tipos  de  impuestos  programables  |ITE.  IVA). 

— Listado  de  entradas/salidas  de  almacén. 

— Listado  de  pedidos  pendientes,  diano  de  ventas,  remesa  bancada. 

— Listados  de  ficheros  con  cabecera  programable. 

— Listados  con  utenos  de  selección  de  fichas. 

•  -  orctrn  ron  tratamiento  de  textos  (documentación  personalizada). 


—PROXIMO  LANZAMIENTO:  CALCULOS  ELECTRICOS—  PARTE  II 


0 

Calcula  pórticos  planos  de  hormi- 

0  y _ 

Programa  de  mediciones  y  presu¬ 
puestos  de  obra  totalmente 

0  y _ 

saín o.sjl//—-- — 

esfuerzos  para  las  tres  hipótesis 
verticales,  viento  y  sismo.  - 

programable  por  el  usuario.  - 
Listado  de  mediciones  y  presu- 

’L’ÜKTO.  Sl  /s  . . 

ESTRUCTURAS 

Armado  total  de  vigas  y  pilares. 
Cuadro  de  pesos  de  hierro.  - 
Cuadro  cúbico  de  hormigón.  - 
Listado  de  todos  los  esfuerzos 
en  el  armado. 

MEDICIONES 

V 

PRESUPUESTOS 

puesto  por  partidas.  -  Posibilidad 
de  ajuste  automático  de  presu- 

CONTABILIDAD 

o»™»—; 

□  25.000 

Cr  commodor." 

□  25.000 

Cree - 

Ficheros  Ce  aniculos  y  proveedo-  1 
res.  -  Control  de  entrada-salida 

0  y _ 

Programa  de  facturación  directa. 

-  Fichero  de  aniculos  y  clientes. 

0  y- _ 

0  y _ 

'miojL/y . 

-  Oíanos  de  ventas.  -Desglose  da 
impuestos.  •  Emisión  de  recibos. 

Vjmo.u/;  . . 

de  almacén.  -  Actualización  automá¬ 
tica.  -  inventano  permanente.  - 

%wa£¿ //  „ _ 

FACTURACION 

-  Vanas  versiones. 

CONTROL 

DE  STOKS 

Inventarió  bajo  mínimos.  -  Listados 

CALCULOS 

ELECTRICOS 
(Parte  >! 

- C  e  om - 

□  15.000 

“  c'omrT>ocJor^- 

□  15.000 

"  "t^rnrryoclor^- 

QC  commodor* 

V  c  °r* t* 

comrrvod  m 

Basada  en  el  Plan  Contable 
Español.  •  300  ó  1.000  cuentas. 
■  Contrapartida  automática.  • 
Estrados  por  pantalla  o  impre¬ 
sora.  -  Balances  programables.  - 
Grupos  0  y  9.  -  Balance  de 
situación  y  cuenta  de  explotación 
programables. 


□ 


25.000 


Cálculo  de  redes  de  alta  tensión. 

-  Cálculos  mecánicos  y  eléctncos. 

-  Cálculo  de  redes  en  baja 
tensión.  •  Electnficación  de  vivien¬ 
das.  •  Informes  completos  para 
adiuntar  al  proyecto.  -  Tratamiento 
de  textos  incorporados. 


□  25.000 


OTROS  PROGRAMAS: 

-TRATAMIENTO  DE  TEXTOS  EN  ESPAÑOL  CZ3 
— GENERADOR  DE  FICHEROS.  G 1 

-ESTADISTICA  (5  paquetes),  etc.  [EJ  CD 


DESARROLLOS  DE  HARDWARE: 
—SISTEMA  AULA  (exámenes  tipo  test). 
—DEPARTAMENTOS  DE  FORMACION. 
— AUTOESCUELAS. 


Avda.  Goya,  8  -  50006  ZARAGOZA 

(Distnbutdores  inclusivamente  por  carta) 


Pida  información:  (976)  22  69  74 


Este  compilador  añade  velocidad  a  tus  programas,  y  además  resulta  fácil  de  utilizar. 


Compilador  de  Basic 

Por  Víctor  H.  Cortés 


Micro  Compilador  es  un 
compilador  de  Basic 
para  el  Commodore 
64.  Un  compilador 
convierte  un  programa 
escrito  en  un  de  alto 
nivel,  como  puede  ser  el  Basic  por 
ejemplo,  en  un  programa  en  lenguaje 
máquina.  Te  permite  aprovechar  la 
velocidad  de  lenguaje  máquina  sin 
tener  que  saberlo. 

Micro  Compilador  compila  un  sub¬ 
lenguaje  del  Basic  de  Commodore, 
que  yo  llamo  Micro  Basic.  Dado  que 
es  un  sub-Lenguaje  Basic  Commo¬ 
dore  puedes  desarrollar,  probar  y  sal¬ 
var  programas  utilizando  el  intérprete 
normal  de  Basic. 

Para  empezar  tienes  que  teclear  y  sal¬ 
var  el  Listado  1,  es  decir  el  programa 
Micro  Compilador.  Cuando  ejecutes  el 
programa,  lo  primero  que  te  preguntará 
será  el  nombre  del  programa  en  Micro 
Basic,  o  programa  fuente,  que  se  va  a 
compilar.  A  continuación  te  pide  la 
dirección  donde  tiene  que  comenzar  el 
código  objeto  o  lenguaje  máquina.  Si 
no  se  introduce  ninguna  direción,  el 
compilador  coge  la  49152  por  omisión. 


El  programa  fuente  se  lee  directamente 
del  disco  y  se  lista  línea  por  línea. 

Se  utiliza  una  técnica  muy  especial 
para  convertir  los  tokens  de  los  coman¬ 
dos  en  su  forma  normal  e  imprimirlos. 
Si  se  encuentra  algún  error,  sale  un  men¬ 
saje  debajo  de  la  línea  donde  se  localiza. 
Dado  que  se  supone  que  el  programa 
fuente  fue  comprobado  con  un  intér¬ 
prete  de  Basic  normal,  la  comprobación 
de  errores  es  mínima.  Si  se  encuentra  un 
error,  éste  normalmente  se  debe  a  un 
comando  inválido  del  Micro  Basic.  Una 
vez  que  tengas  el  programa  compilado, 
dispones  de  la  opción  de  salvar  el 
código,  ejecutar  el  código,  compilar 
otro  programa  o  simplemente  terminar. 

Cuando  salva  el  código  de  lenguaje 
máquina,  el  compilador  pregunta  su 
nombre.  Si  no  se  introduce  ninguno,  el 
compilador  entra  el  nombre  fuente  más 
“.COM.”.  Después  de  salvar  el  código 
compilado,  puedes  cargar  un  programa 
normal  en  Basic,  utilizando  la  sentencia: 
LOAD“nombre  del  programa”, 8,1.  El 


C-64,  C-128 
UNIDAD  DE  DISCOS 


código  máquina  puede  ser  ejecutado 
desde  Basic  con  el  comando  SYS  a  la 
dirección  inicial  del  código  (normal¬ 
mente  SYS  49152).  Esto  se  puede  hacer 
en  modo  directo  o  dentro  de  un  pro¬ 
grama. 

Ya  que  un  compilador  para  todos  los 
comandos  Basic  sería  un  programa  muy 
largo,  este  compilador  fue  escrito  para 
manejar  un  sub-lenguaje  de  Basic.  Este 
sub-lenguaje  tiene  una  serie  de  limita¬ 
ciones.  No  se  pueden  utilizar  sentencias 
IF...THEN  o  FOR...NEXT  anidadas,  ni 
las  variables  de  strings  ni  los  arrays. 

Sin  embargo,  existen  maneras  de  evi¬ 
tar  estas  limitaciones.  Por  ejemplo,  en 
vez  de  emplear  una  variable  de  arrays 
para  contener  los  valores  numéricos, 
puedes  introducir  estos  números  median¬ 
te  un  Poke  en  una  zona  de  la  memoria. 
Se  puede  hacer  lo  mismo  si  conviertes 
FOR  I  =  1  TO  5  :  A(I)=I  :  NEXT  en 

FOR  I  =  1  TO  5:  POKE  828+1,  I  : 
NEXT 

Normalmente,  se  compila  una  subru¬ 
tina  en  Basic  que  necesita  un  poco  de 
velocidad.  Entonces,  en  vez  de  ejecutar 
la  subrutina  con  una  sentencia  GOSUB, 
puedes  llamar  la  rutina  compilada  con 
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una  sentencia  SYS.  También  puedes 
escribir  y  ejecutar  un  programa  escrito 
solamente  con  sentencias  Micro  Basic. 

A  continuación  se  presenta  una  lista 
de  los  comandos  Micro  Basic  que  el 
compilador  puede  procesar: 

1.  [LET]  V=expresión 

2.  PRINT  [expresión]  [CHR$(expre- 
sión)]  [“cadena”]  [;] 

3.  IF  expresión  — Comparada — 
expresión  THEN  [sentencias  o  número 
de  línea] 

4.  FOR  V=expresión  TO  expresión 
[STEP  expresión] 

5.  NEXT 

6.  POKE  expresión,  expresión 

7.  SYS  expresión 

8.  GOTO  N 

9.  GOSUB  N 

10.  RETURN 

11.  END  o  STOP 

12.  REM  [comentarios] 

[]  indican  una  opción. 

V  se  utiliza  para  representar  un 
nombre  de  variable.  El  primer  carácter 
del  nombre  será  exclusivo  a  éste  (A-Z). 
Estas  variables  utilizan  las  posiciones  de 
memoria  680  a  731. 

N  se  utiliza  para  representar  un 
número  entero  literal  (como  123, 4625  ó 
14).  Su  valor  puede  variar  entre  0  y 
65535. 

X  se  utiliza  para  representar  una 
variable  o  un  entero  numérico  (V  o  N). 

“Expresión”  es  una  expresión  numé¬ 
rica  empezando  por  X  o  PEEK(X)  y  que 
tiene  la  opción  de  ir  seguida  por  cual¬ 
quiera  de  los  siguientes  signos:  [+  X]  [- 
X]  [*  X]  [/  X]  [AND  X]  [OR  X], 
“Comparación”  es  un  tipo  de  compa¬ 
ración  y  puede  ser  uno  de  los  siguientes 
signos:  =  (igual  a),>  (mayor  que), 
(diferente  a)  o  <  (menor  que). 

A  continuación  presentamos  unos 
ejemplos  de  sentencias  válidas: 

R  =  PEEK  (A)  *  100  /  M 
IF  Y*40  +  X  >  2023  THEN  PRINT 
CHR$(147); 

FOR  I  =  I  TO  X  +  A  :  PRINT  I  +  64  : 
NEXT 

SYS  B  +  1024  :  RETURN 
GOSUB  500  :  PRINT  “TOTAL”;T 
GOTO  20 

POKE  A-I,J  AND  15:  END 
Los  siguientes  son  ejemplos  de  sen¬ 
tencias  inválidas: 

R  =  COS  (B) 

PRINT  TI$ 

GET  X$(I) 

OPEN  15,8,15 

Igual  que  el  Basic  normal,  el  “LET” 
es  opcional.  Se  utiliza  para  asignar  una 
expresión  a  una  variable.  Una  expresión 
tiene  que  empezar  con  una  variable,  un 
número  o  la  función  PEEK  de  una 
variable  o  un  número.  Puede  ir  seguido 
de  otras  variables  o  números,  con  tal  de 
que  éstos  vayan  separados  por  +,  — ,  *, 
/,  AND  u  OR. 

La  expresión  se  evalúa  de  izquierda  a 
derecha,  sin  tener  en  cuenta  las  priori¬ 
dades  y  sin  paréntesis.  Por  este  motivo, 


Sse  utiliza 

una  técnica 
muy  especial 
para  convertir 
ios  tokens 
de  los  comandos 
en  su  forma  normal 
e  imprimirlos. 

Si  se  encuentra  algún  error, 
sale  un  mensaje 
debajo  de  la  línea 
donde  se  localiza. 

Dado  que  se  supone 
que  el  programa  fuente 
fue  comprobado 
con  un  intérprete 
de  Basic  normal, 
la  comprobación  de  errores 
es  mínima. 

Si  se  encuentra  un  error, 
éste  normalmente 
se  debe  a  un  comando 
inválido  del  Micro  Basic. 


los  operadores  de  multiplicar  y  dividir 
tienen  que  ir  primero,  después  los  de 
sumar  y  restar  y  por  último  los  opera¬ 
dores  AND/OR.  Esto  asegura  que  el 
programa  compilado  evalúe  correcta¬ 
mente  una  expresión. 

El  comando  PRINT  puede  ser  utili¬ 
zado  para  escribir  una  variable  numé¬ 
rica,  un  carácter  ASCII  o  un  string.  Si  se 
utiliza  el  punto  y  coma,  que  es  opcional, 
éste  evitará  un  retorno  después  de  la 
sentencia  PRINT.  El  punto  y  coma 
también  puede  ser  utilizado  para  escri¬ 
bir  cualquier  combinación.  Solamente 
el  comando  PRINT  permite  los  strings 
literales. 

En  la  sentencia  IF...THEN,  THEN 
puede  ir  seguido  de  una  número  de  línea 
o  cualquier  otra  sentencia  del  Micro 
Basic.  Las  sentencias  múltiples  pueden 
ir  en  una  sola  línea  con  tal  de  que  vayan 
separadas  por  dos  puntos.  Sin  embargo, 
resulta  más  fácil  corregir  errores  si  cada 
comando  va  en  una  línea  aparte. 

Se  omiten  todos  los  comandos  de 
manipulación  de  strings  (LEFT$, 
MID$...)  porque  el  Micro  Basic  no 
maneja  las  variables  de  strings.  Puede 
manejar  solamente  variables  de  numéri¬ 
cas  o  literales  en  el  rango  de  0  a  65535 
(dos  bytes). 

Algunos  comandos  pueden  ser  simu¬ 
lados;  por  ejemplo,  en  vez  del  comando 
GET,  puedes  utilizar  PEEK  (197)  para 
leer  el  teclado.  El  valor  que  da  PEEK 


(197)  puede  ser  hasta  convertido  a  su 
equivalente  ASCII  utilizando  las  tablas 
de  la  ROM  interna  (ver  el  programa 
TEST).  Fue  necesario  implantar  estas 
limitaciones  para  que  el  programa  se 
quedase  en  un  tamaño  razonable. 

El  listado  2,  el  test  para  el  compila¬ 
dor,  tiene  que  ser  entrado  y  salvado 
después  de  salvar  el  programa  MICRO. 
COMPILADOR.  La  función  principal 
de  este  test  es  comprobar  que  el  compi¬ 
lador  funciona  correctamente.  Primero 
el  programa  borra  la  pantalla  y  escribe 
TEST.COMP.  Luego  coloca  el  cursor 
en  la  décima  línea  y  escribe  TEST.  A 
continuación  escribe  los  números  de  1  a 
5,  lee  el  teclado  y  escribe  el  carácter  in¬ 
troducido. 

Después  identifica  el  carácter  como 
igual  a,  mayor  que  o  menor  que  el 
carácter  A.  También  cambia  el  borde  de 
la  pantalla  a  verde  si  el  carácter  intro¬ 
ducido  es  igual  a  A,  y  a  rojo  si  no  lo  es. 
El  programa  termina  cuando  se  pulsa  la 
tecla  F7. 

Ahora  puedes  cargar  y  ejecutar  el 
compilador.  Cuando  el  compilador  te 
pregunte  el  nombre  fuente,  tienes  que 
introducir  TEST.  Pulsa  la  tecla  RE¬ 
TURN  cuando  te  pide  la  dirección  pulsa 
RETURN  para  que  introduzca  la  49152 
por  omisión.  Después  de  realizar  el  proce¬ 
so  de  compilar,  el  programa  escribe  el 
rango  de  direcciones  (las  direcciones 
inicial  y  final)  que  ocupa  el  código  com¬ 
pilado,  además  de  la  cantidad  de  errores 
encontrados.  A  continuación  muestra 
las  siguientes  opciones: 

1.  Salvar,  para  salvar  el  código 
máquina. 

2.  Ejecutar,  ejecuta  el  código  má¬ 
quina. 

3.  Compilar,  te  permite  compilar 
otro  programa. 

4.  Salir,  te  envía  otra  vez  a  Basic. 

Introduce  la  opción  2  para  ejecutar  el 

programa.  Los  resultados  deben  ser 
iguales  a  los  del  programa  TEST,  des¬ 
contando  la  velocidad  de  la  versión 
compilada. 

El  listado  3,  el  otro  programa  de 
demostración,  demuestra  la  diferencia 
de  velocidad  entre  un  programa  compi¬ 
lado  y  un  programa  no  compilado.  Este 
programa  llena  la  pantalla  de  varios 
diseños  en  color.  Primero,  teclea  el  pro¬ 
grama,  sálvalo  con  el  nombre  COLO¬ 
RES,  y  ejecútalo,  tomando  nota  del 
tiempo  que  tarda  en  rellenar  la  pantalla 
con  los  diseños  en  color.  Cuando  te  pre¬ 
gunte  el  nombre  fuente,  entra  COLO¬ 
RES.  Después  de  que  se  haya  compi¬ 
lado  COLORES,  entra  la  opción  4  para 
terminar  el  compilador. 

Ahora  entra  SYS  49152  para  ejecutar 
el  lenguaje  máquina  compilado.  La  pan¬ 
talla  se  llena  instantáneamente,  compa¬ 
rado  con  el  minuto  o  más  que  tarda  la 
versión  en  Basic.  Esto  debe  convencerte 
de  una  de  las  ventajas  de  utilizar  un 
programa  compilador.  Las  versiones 
compiladas  de  un  programa  en  Basic 
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¡on  tan  rápidas  que  muchas  veces  te 
/erás  obligado  a  incluir  un  bucle  FOR- 
.NEXT  para  que  el  programa  tenga 
ana  velocidad  más  controlable. 

Con  este  compilador  podrás  desarro¬ 
llar  programas  utilizando  un  lenguaje 
de  alto  nivel  (el  Micro-Basic)  que  te 
proporciona,  como  producto  termi¬ 
nado,  un  programa  escrito  en  el  len¬ 
guaje  de  la  propia  máquina,  lo  que  te 
permite  aprovechar  todas  las  capacida¬ 
des  del  ordenador. 


I  Código  de  Lenguaje  Máquina  Generado 


Se  ha  incluido  aquí  la  Tabla  1  para 
aquellos  que  tengáis  interés  en  el  código 
de  lenguaje  máquina  generado  por  el 
compilador  para  cada  sentencia  en 
Basic.  En  la  mayoría  de  los  casos,  el 
acumulador  se  utiliza  para  contener  el 
byte  bajo  de  un  entero,  mientras  que  el 
registro  X  se  emplea  para  contener  el 
byte  alto.  Las  direcciones  de  las  varia¬ 


bles  se  consiguen  del  nombre  de  la 
variable  (A  a  Z). 

Se  incluye  una  rutina  especial  para 
manejar  las  multiplicaciones  y  las  divi¬ 
siones  solamente  si  estos  operadores  se 
emplean  en  una  expresión.  Las  dos  pri¬ 
meras  expresiones  de  cada  programa 
son  saltos.  Estas  tablas  representan  el 
código  general  generado  por  expresio¬ 
nes  sencillas.  Las  expresiones  más  com¬ 
plicadas  generan  combinaciones  de 


Listado  1.  Micro  Compilador 


10  PR INT "  C C0MM6 ]  M I CRO  COMPILER" 

15  REM  POR  VIC  CORTES 

20  GOSUB1780 :GOTO590 

30  REM  ..  PRIMERA  VARIABLE 

40  GOSUB400 s  POKER ,169: POKEA+ 1 , L : K=2 

50  I FVTHENPOKE  A  ,173:  POKER+2  ,  H  :  K=3 

60  A=A+K : POKER ,174: POKEA+ 1 , C : POKEA+2 , H 

70  I FV=0THENPOKEA , 1 62 : POKEA+ 1 , H 

80  fl=R+K: RETURN 

90  REM  ..  EXPRESION 

1 00  P=0  : 1  FPEEK  <  U  >  =  1 94THENU=U+2 :  P=  1 
110  GOSUB40 

120  IFLD912THENPR INT "ERROR  -  DESBORDAMIE 
NTO" : RETURN 

1 30  0=0 : B=PEEK <  U  > : I FB= 1 73THEN280 
140  I  FB=  1 72THEN280 

150  I FB= 1 70THENO= 1 09 : POKER , 24 : R= fl+ 1 
1 60  I  FB=  1 7 1  THEN0=237 :  POKER  ,  56 :  A= A+ 1 
170  IFB=175THEN0=45 
180  IFB=176THEN0=13 
190  IFO=0THEN320 

200  U=U+1 :GOSUB400:POKEA,O— 4:P0KEA+1,L:K 
=2 

210  I FVTHENPOKER , 0 : POKEA+2 , H : K=3 
220  A=A+K : POKER ,168: P0KEA+ 1,138: A= A+2 
230  POKER, O :P0KER+1 ,C :P0KER+2,H 
240  I FV=0THENPOKEfl ,0-4:P0KER+l,H 
250  R=R+K : POKER ,170: POKER+ 1,152: fl=R+2 
260  GOTO  120 

270  REM  ..  MULTIPLICRR/DIVIDIR 

280  POKER ,133: POKER+ 1,97: POKEfl+2 ,134: POK 

EA+3 , 98 : R=R+4 : U=U+ 1 :GOSUB40 

290  G= 1 : POKER ,24:1 FB= 1 73THENP0KER , 56 

300  D=S+3 : GOSUB570 : POKER+ 1,32: POKER+2 , L : 

P0KEfl+3,H :fl=R+4 :GOTO120 

310  REM  ..  PEEK  <  EXPRES  I  ON  ) 

320  IFP=0THENRETURN 

330  POKER, 1 33 :POKER+ 1,34 

340  POKER+2, 134  :P0KER+3, 35 

350  POKER+4,1 62 :POKER+5,0 

360  POKEfl+6, 160 :POKEfl+7,0 

370  POKER+8 ,177: POKER+9 , 34 

380  R=fl+ 1 0 : U=U+ 1 : P=0 : GOTO 1 20 

390  REM  .  .  BUSCAR 

400  N=0:V=0:IFPEEK<UX65THEN420 

410  IFPEEKCUX91THEN490 

420  T=0:IFPEEK<U>=170THENU=U+1 :GOTO450 
430  I FPEEK <  U  >  =  1 7 1 THENU=U+ 1 : T= 1 
440  I  FPEEK  CU  >  <480RPEEK  <  U  >  >57THENPR  INT"** 
ERROR  POSICION"  ;U-827;PEEKCU) 

450  I  FPEEK  (  U  >  >47RN0PEEK  <  U  >  <C58THENN=N*  1 0+ 

PEEK<U>— 48 :U=U+1 :GOTO450 

460  IFT=0THEND=N:GOTO570 

470  D=65536-N:GOTO570 

480  REM  . .  RLT07BRJ0 

490  V=PEEK<U> :D=V 

500  U=U+1 :T=PEEKCU) :IFT>90THEN560 

510  I FT <32THEN560 

520  IFT=59THEN560 

530  IFT=44THEN560 

540  IFT=41THEN560 

550  I FT>35THEN500 

560  D=D-65:O=D+D+680 

570  HX=0X256 :H=HX :L=D-H*256 :C=<L+1 >RND25 
5: RETURN 

580  REM  . .  LEER  FUENTE 

590  GET#2,R1*,R2*:TI *=“000000" 

600  GET#2,L1*,L2* : T=RSC <  L 1  *+Z*  >  +RSC  <  L2*+ 
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CONTROLA  1.200 
REFERENCIAS. 
P.V.P.  22.000. 


CASSETTE  CBM64 


rmscAí 


rdependit 
el  ZOOM 


GARANTIA  6  MESES 


BASIC. 


UCSD- 


EASY  SCRIPTyconSU- 
PERSCRIP. 


CONTABILIDAD 

VERSION  A  VERSION 
300  cuentas  600  cuent 


SUPERSCRIPT  128 


* 


SACATISOFT 


COMMODORE 


D,d  _ 

8.000  6.500  A 


QUINIELAS  -  CBM  64 


ELIMINA  FIGURAS 
REDUCE  VARIANTES 
IMPRIME  BOLETOS 
ESCRUTINIO 
P.V.P.  18.000 


GESTION  de  STOCK 


BOLETIN  DE  PEDIDO 


Z*)  :IFT=0THEN1920 

610  GET#2,S1*,S2*  :T=HSCCSl*+Z*)+flSCCS2*+ 
Z*)*256 

620  SCM)=T:LCM)=A:M=M+l:PRINT"i:CRSRL3",-T 

630  I FFTHENT=fl-F : POKEF+ 1 , T-2 : POKEF +7 , T-8 
:POKEF+9,T-10:F=0 
640  J=828 : I FPEEK < 653 ) THEN640 
650  GET #2 ,  B$ :  I FSTTHEN 1 920 
660  B= ASC < B*+Z* )  : POKE J ,B:I FQ0RBO32THEN J 
=J+1 

670  IFB=34THENQ=N0TQ 
680  I  FB<  1 280RQTHENPR I NTB#  ; 

690  POKE780,B: POKE 15,0 

700  I FB> 1 27RNDB<204HNOQ=0THENPOKE782 , 255 

: P0KE768 ,185: SVS42775 

710  P0KE768 , 1 39 : I FQTHEN650 

720  I FB<32THENPR I NT : GOSUB770 : GOTO600 

730  IFB=167THENGOSUB770:GOTO640 

740  IFB=58THENJ=J-1 :GOSUB770 :GOTO640 

750  GOTO650 

760  REM  . .  PROCESAR 

770  B=PEEK  <828)  :  U=829 :  POKE  J  ,  0 :  POKE  J +1,0 
780  I FB= 1 36THEN940 

790  I  FB= 1 280RB= 1 420RB=  1 44THENP0KEA  ,  96 :  R= 

fl+1 : RETURN 

800  I FB= 1 58THEN 1 680 

810  I FB= 1 39THEN 1 040 

820  I  FB= 1 53THEN 1 1 70 

830  IFB=151THEN1 720 

840  I FB= 1 29THEN 1510 

850  I FB= 1 30THEN 1 650 

860  I FB= 1 43THENRETURN 

870  IFB=137THEN0=76: GOTO 1480 

880  I  FB=  141  THEN0=32 :  GOTO  1 480 

890  IFB<48ORB>90THEN920 

900  IFB>64THEN950 

910  I FB<58THENU=828 :0=76 :GOTO1480 

920  PR I NT “ ERROR " ; U-827 : ER=ER+ 1 : RETURN 

930  REM  ..  V=EXPRES ION 

940  F0RI=828T0842 :POKEI=PEEK< 1+1 > :NEXT 

950  U=828  :  IFPEEKCU) <65THEN920 

960  I FPEEK <U)>90THEN920 

970  U=U+1  :IFPEEKCU)O178THEN920 

980  U=U+ 1 : GOSUB 1 00 : D=PEEK < 828 ) 

990  GOSUB560 

1 000  POKER ,141: POKER+ 1 , L : POKEfl+2 , H 
1010  POKEfl+3 ,142: POKEfl+4 , C :P0KER+5 , H 
1020  R=fl+6: RETURN 
1030  REM  .  .  IF/THEN 

1 040  GOSUB 1 00 : W=PEEK  <  U ) : I FW< 1 77THEN920 
1050  I  FW>  1 79THEN920 

1 060  POKER+0 ,133: POKER+ 1,34: POKER+2 ,134: 
POKEfl+3 , 35  :  R=R+4 :  U=U+ 1 

1 070  I  FW=  1 79RNDPEEK  <  U  >  =  1 77THENW=  1 80 :  U=U+ 
1 

1 090  GOSUB 1 00 : POKER , 228 : POKER+ 1,35: POKER 
+2 , 240 : POKEfl+3 , 4 : fl=R+4 : F=fl 
1 1 00  POKEfl+3 , 6 : POKEfl+4 ,197: POKEA+5 , 34 
1110  POKER , 240 : POKEfl+2 , 208 : POKEfl+8 , 240 
1120  IFW=178THENPOKEfl,208 :POKEA+8,208 
1130  I  FW=  1 79THENP0KEF)  ,144:  POKEfl+2  ,  1 76 
1140  I FW= 1 77THENP0KEA , 1 76 : POKEfl+2 , 1 44 
1 1 50  POKEfl+6  ,  PEEK  <  fl  )  :  fl=fl+ 1 0 :  RETURN 
1160  REM  ..  PRINT 
1170  W=PEEKCU) : IFWC32THEN1450 
1 1 80  I  FW=59flNDPEEK  C  U+ 1 )  <32THENRETURN 
1190  IFW=59THENU=U+1 :GOTO1170 
1200  IFW=199THEN1300:REM  CHR* 

1210  IFW=34THEN1340:  REM  "CflOENR" 

1220  REM  ..  PRINT  EXPRESION 
1230  POKEfl  ,  1 69 :  POKE A+ 1 , 29 :  POKEfl+2 , 32 
1240  POKEfl+3, 2 1 0 : POKEfl+4 , 255 : fl=fl+5 
1 250  GOSUB 1 00 : POKEfl , 1 34 : POKER+ 1 , 34 
1 260  POKEfl+2, 170 :P0KER+3, 165 : POKEfl+4, 34 
1270  POKEfl+5,32 : POKEfl+6 ,205:POKEfl+7,189 
1280  fl=fl+8 :G0T01 170 
1290  REM  ..  PRINT  CHRÍC EXPRES ION) 

1300  U=U+1  :IFPEEK<U)O40THEN920 
1310  U=U+1 : GOSUB 1 00 : POKEfl, 32 :POKEfl+l ,210 
1 320  POKEfl+2 , 255 : fl=fl+3 : U=U+ 1 : GOTO 1 1 70 
1330  REM  . .  PRINT "CADENA" 

1340  D=fl+ 10: GOSUB570 : POKEfl , 1 69 
1 350  POKEA+ 1 , L : POKEfl+2 ,160: POKEfl+3 , H 
1360  POKEfl+4, 32  :POKEfl+5,30  :P0KEfl+6,  171 


1 370  POKEfl+7 , 24 : POKEfl+8 ,144: POKEfl+9 , 0 

1380  W=fl+9 :fl=fl+10 :  1=0 

1390  1=1+1  :U=U+1 :  IFU>912THEN1430 

1400  I FPEEK  < U ) =34THEN 1 430 

1410  I FPEEK  CU)  =0THEN 1 430 

1420  POKEfl, PEEK CU) :fl=fl+l :GOTO1390 

1430  POKEW,I : POKEfl, 0:fl=fl+l 

1440  U=U+1 :GOTO1170 

1 450  POKEfl ,169: POKEA+ 1,13: POKEfl+2 , 32 
1 460  POKEfl+3 ,21 0 : POKEfl+4 , 255  :  fl=fl+5 :  RETUR 

1470  REM  ..  GOSUB/GOTO 

1480  POKEfl , O : POKEA+ l,0:POKEfl+2,0: GOSUB40 
0 

1490  R=R+1 :NCR)=N:RCR)=fl:fl=fl+3:RETURN 

1500  REM  ..  FOR 

1510  U=831 : GOSUB 100 

1 520  LP=fl : POKEfl , 76 : fl=fl+3 

1530  HU=U : U=829 : GOSUB40 : U=HU+ 1 

1 540  POKEfl ,133 :POKEfl+ 1,34: POKEfl+2 , 1 34 : PO 

KEfl+3 , 35 : fl=fl+4 

1550  HF=F:W=177:GOSUB1090:F=HF 
1 560  POKEfl- 1,3: POKEfl-3 , 2 : POKEfl-9 , 1 1 
1570  POKEfl— 2, 176 : POKEfl— 4,240 
1 580  Xfl=fl : POKEfl , 76 : fl=fi+3 

1590  I FPEEK  <  U ) 0 1 69THENP0KER , 1 69 : POKE A+ 1 

, 1 : POKEfl+2 ,162: POKEfl+3 , 0 : fl=fl+4 : GOTO 1610 

1600  U=U+1 :GOSUB100 

1610  U=828:B=170:GOSUB150 

1 620  D=fl :  GOSUB570 :  POKELP+ 1 ,  L  :  POKELP+2  ,  H 

1630  D=PEEK  C 829 ) : GOSUB990 : RETURN 

1640  REM  ..  NEXT 

1 650  D=LP+3  :  GOSUB570  :  POKEfl  ,  76 :  POKEA+ 1  ,  L  : 
POKEfl+2, H :fl=fl+3 :D=fl :GOSUB570 
1 660  POKEXA+ 1 ,  L :  POKEXH+2  ,  H :  RETURN 
1670  REM  ..  SVS 

1 680  GOSUB 1 00 : POKEfl ,133: POKEA+ 1 , 20 
1690  POKEfl+2, 134 :P0KEfl+3, 21 
1 700  POKEfl+4 , 32 : POKEA+5 , 54 : POKEH+6 , 225 : fl 
=fl+7: RETURN 
1710  REM  ..  POKE 

1 720  GOSUB 1 00 : POKEfl ,133:P0KEfl+l,34 
1730  POKEfl+2, 134 :P0KEfl+3,35 :fl=fl+4 
1740  I  FPEEK  CU)  O44THEN920 
1 750  U=U+ 1 : GOSUB 1 00 : POKEfl , 1 60 : POKEA+ 1 , 0 
1 760  POKEfl+2 ,145: POKEfl+3 , 34 : fl=fl+4 : RETURN 
1770  REM  . .  INICIO 

1780  DIMNC63) ,flC63) ,SC255) ,LC255> ,T*C75) 
1790  fl=0 : B=0 :U=0:I=0:J=0:K=0:V=8:O=0 
1800  C=0:H=0:L=0:W=8 

1810  P0KE5328 1,0:POKE53280,0:POKE646,15 
1820  S*=“TEST.PHRfl" :S=49152 :Z*=CHR*C0> 
1830  INPUT"NOMBRE  FUENTE" ;S* 

1840  RESTORE : IFS$="#"THENEND 
1850  INPUT" DIRECCION  INICIAL" }S :fl=S+6 
1860  D=fl :GOSUB570 :POKES, 76 :POKES+l ,L :POK 
ES+2,H 

1870  POKES+3 , 76 : POKES+4 , 116: POKES+5 , 164 
1880  0PEN15,8, 15:0PEN2,8,2, "0 : "+S* 

1 890  I NPUT# 15, El ,E2$,E3,E4 : IFE1 =0THENRET 
URN 

1900  PRINTE1 ;E2$;E3;E4 

1910  REM  .  .  FINAL 

1920  CLOSE2 : CLOSE 1 5 

1930  I FR=0THEN 1 980 

1940  FORI=1TOR :N=NC I ) :W=flC I ) :D=0 

1950  FORT =0TOM : IFS C T ) =NTHEND=L C T ) :T=M 

1 960  NEXTT : GOSUB570 : POKEW+ 1 , L 

1970  P0KEW+2,H :NEXTI 

1980  IFG=0THEN2030 

1 990  0=fl  :  GOSUB570  :  POKES+4  ,  L  :  POKES+5  ,  H 

2000  REflDO : IFDC0THEN2030 

2010  POKEfl, D:fl=fl+1 

2020  GOTO2000 

2030  POKEfl, 0:E=fl+l 

2040  PRINT" ERRORES " ;ER 

2050  PRINT "RANGO  DEL  PROGRAMA" ;S; " CCRSRL 
3  "  ;-E 

2060  PRINTS*;"  COMPILADO,  TIEMPO :" ;TI* 

2070  PRINT" 1-  SALVAR [3SPC 12-  EJECUTAR C3S 

PC 3 3—  C0MPILRRC3SPC34-  QUITAR" :POKE198,0 

2080  GETX$ : I FX#= " 1 " THEN2 1 70 

2090  IFX*="2"THEN2140 

2100  I  FXS=  "  3  "  THENGOSUB 1 820 :  GOTO590 

2110  IFX*="4"THENEND 
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Listado  2.  Programa  test 
5  REM  TEST  PRRñ  EL  MICRO  COMPILADOR 
10  B=13320*4s P0KE5328 1,7: P0KE646 , 6 
20  PR I NT " C  CLR I TEST . COMP " 

30  P0KE78 1,10: P0KE782 ,10: P0KE783 , 0 
40  S VS65520 : PR I NT " TEST " 

50  FOR 1=1 T05STEP 1 
60  PRINTI :NEXT 
70  K=PEEK<197) :IFK=64THEN70 
80  I FK=3THENEN0 : REM  F7 
90  X=PEEK<653> 

100  R=K+60354 

110  IFX=0THENfi=R-65 

120  C=PEEK<A> :PRINTCHR*<C> ; 

130  IFC=65THENGOSUB180 
1 40  I FC<65THENPR I NTCHR* <  60  >  ; 

1 50  I FC>65THENPR I NTCHR* <  62  > ; 

160  I FCO65THENP0KEB  ,  2 
170  PR  I NTCHR#  ■'  65  )  :  GOTO70 
180  PRINTCHR*<6U; 

190  P0KEB,5 
200  RETURN 


Listado  3.  Programa  demostración 

5  REM  "COLORES" 

10  REM  PROGRRMR  DEMOSTRACION  DEL 
MICRO  COMPILADOR 
20  GOSUB 1 80 : GOTO60 
30  fl=A+V:IFfl<1024THENR=fl+1001 
40  IFR>2023THENR=fl-1001 
50  POKER, K:POKEfl+D,C: RETURN 
60  J= J+2 : V=0-40 : GOSUB30 
70  V=0-1 : FOR 1=1 TO J— 1 STEP 1 :GOSUB30 :NEXT 
80  V=40 :  FOR  I  =  1  TO  J  : GOSUB30 : NEXT 
90  V= 1 : FOR I = 1 TOJ : GOSUB30 : NEXT 
100  V=0-40 : FOR I = 1 TO J : GOSUB30 : NEXT 
110  R=PEEK ( 56324  >  +R+R 
120  IFR>32767THENR=R-32767 
1 30  P=RRND7 : K=PEEK < 828+P ) 

1 40  C=RRND 15:1 FC=0THENC=7 
1 50  I F  J>7THENfl=fl- 1 99  :  J=0- 1 
170  GOTO60 

1 80  POKE53280 , 0 : P0KE5328 1 , 0 : K= 1 60 
190  PR I NTCHR*  < 1 47 ) ; : fi= 1 524 : D=54272 : C= 1 
200  P0KE828 , 230  :P0KE829 ,102:  POKE830 , 94 
2 1 0  P0KE83 1 , 95  :P0KE832 , 222  :  P0KE833 , 233 
220  P0KE834 , 1 05 :P0KE835 ,160: J=0- 1 
230  PR I NTCHR*  < 1 4  > ; : RETURN 


¡¡INTERESANTE!! 


QUICK  DATA  DRIVE 

DIMENSIONES:  4.5”  X  2.68”  X  5.8 7” 
COMPATIBLE  CON  EL  COMMODORE  64  Y  VIC-20 


QUICK  DATA  DRIVE 
TRATAMIENTO  DE  TEXTO 
BASE  DE  DATOS 
CONTABILIDAD  PERSONAL 
MONITOR  CODIGO  MAQUINA 

26.700  P 


•  ALTA  VELOCIDAD:  19.000  BITS/SEGUNDO. 

•  CAPACIDAD  DE  CARTUCHO  VIRGEN 


CARTUCHO  54  K .  790  ptas. 

CARTUCHO  170  K .  790  ptas. 


•  PROGRAMAS:  ETIQUETAS,  FICHEROS,  STOCK  ALMACEN 
BASE  DE  DATOS,  CONTABILIDAD  PERSONAL,  CONTABILIDAD 
PLAN  GENERAL  CONTABLE. 

•  TRATAMIENTO  DE  TEXTOS  Y  MONITOR  CODIGO  MAQUINA. 

•  CONTABILIDAD  (PLAN  GENERAL  CONTABLE)  . 12.500  ptas. 

—  Esta  contabilidad  comprende  un  paquete  de  14  programas  de  acuer¬ 
do  con  las  últimas  disposiciones  legales  del  PLAN  GENERAL 
CONTABLE. 

Este  paquete  presenta  las  siguientes  características: 

—  Uso  de  varios  tipos  de  impresoras. 

—  Creación  por  parte  del  usuario  de  sus  propias  cuentas  auxiliares. 
Los  grupos  y  subgrupos  van  implícitos  en  el  programa. 

—  Posibilidad  de  usar  1  ó  2  unidades  Quick  Data  Drive. 

—  Soporte  de  información  en  wafer  distinto  al  wafer  Master. 

—  El  usuario  puede  crear  hasta  950  cuentas  auxiliares. 

—  Si  usa  dos  Quick  Data  Drive,  podrá  introducir  hasta  2000  apuntes 
por  wafer  de  170  K. 


GOMEROALMOÍOS 

ERCILLA,  12  -  TELEFONO  468  26  93 
28005-MA  DRID 


Commodore  creó  un  buen  or¬ 
denador  cuando  diseñó  el 
C-64.  Desafortunadamente, 
el  C-64  contiene  un  Basic  in¬ 
adecuado  y  pasado  de  moda, 
versión  2.0,  que  no  aprove¬ 
cha  las  ventajas  del  C-64.  El  resultado 
de  este  hecho  es  una  gran  cantidad  de 
expansiones  del  Basic  (como  pueden  ser 
el  Simon’s  Basic,  Victree,  Breden’s 
Basic,  etc.)  ninguna  de  los  cuales  puede 
considerarse  estándar  ni  completa. 

Cuando  se  presentó  el  C-64,  Com¬ 
modore  tenía  una  versión  avanzada  de 
su  Basic  2.0  llamada  Basic  4.0.  Este  era 
estándar  en  los  Pets,  pero  no  se  usó  en  el 
C-64,  probablemente  porque  el  C-64  se 
habría  convertido  en  un  barato  compe¬ 
tidor  para  los  Pets. 

Yo  era  uno  de  los  que  usaban  exten¬ 
siones  del  Basic  como  las  arriba  men¬ 
cionadas,  hasta  que  mi  economía  no  me 
permitió  seguir  con  ello. 

Decidí  hacer  una  recopilación  de  los 
mejores  comandos  que  había  estado 
usando  y  publicarlos  en  una  revista. 
Algunas  veces  la  poca  fortuna  de  unas 
personas  puede  convertirse  en  la  for¬ 
tuna  de  otras.  Al  menos  en  este  caso. 

Los  lectores  de  esta  revista  vais  a  con¬ 
seguir  una  extensión  del  Basic  por  el 
precio  de  la  revista.  Los  programas  que 
aparecerán  listados  incluyen  todos  los 
comandos  del  Basic  4.0,  por  lo  que  los 
usuarios  de  C-64  podréis  aprovechar 
muchos  de  los  programas  de  los  anti¬ 
guos  Pets,  así  como  comandos  para  uti¬ 
lizar  los  Sprites,  Música,  Ventanas,  y 
muchos  más  comandos  Basic  adiciona¬ 
les.  No  se  incluyen  comandos  para  uti¬ 
lizar  gráficos  en  alta  resolución,  pero  en 
Commodore  World  han  aparecido  va¬ 
rios  programas  que  añaden  este  tipo  de 
comandos  al  Basic  del  C-64  (véase  por 
ejemplo  el  número  14).  Al  fin  y  al  cabo 
hay  pocos  programas  que  utilicen  gráfi¬ 
cos  en  alta  resolución. 

Para  que  todos  los  comandos  se 
entiendan  claramente  y  se  puedan 
publicar  todos  los  listados  se  necesitan 
al  menos  tres  artículos.  En  esta  primera 
parte  tenéis  el  cargador  principal  del 
Basic  4.5,  como  yo  le  he  llamado,  y  los 
listados  para  sprites  y  joysticks.  En  este 
artículo  tenéis  la  explicación  de  todos 
los  comandos,  lo  que  os  permitirá 
entender  más  o  menos  cómo  funcionan 
y  podréis  iros  haciendo  una  idea  de  lo 
que  es  este  Basic  sin  tener  que  esperar 
tres  meses  para  ver  cuáles  son  todos  los 
nuevos  comandos. 

Comandos  de  Pantalla 


REV  columna  (0-39),  fila  (0-24),  an- 
:ho  (1-40),  alto  (1-25)  coloca  en  modo 
normal  (no-inverso)  todo  lo  que  se 
¡ncuentra  en  la  ventana. 


C-64,  C-128 


BASIC  4.5 

Por  Robert  Rockefeller 

Más  comandos  para  tus  programas 


INV  columna  (0-39),  fila  (0-24), 
ancho  (1-40),  alto  (1-25). — Coloca  en 
modo  inverso  lo  que  esté  en  la  ventana. 
Es  lo  contrario  del  comando  REV. 

RIGHTW  columna  (0-39),  fila  (0-24), 
ancho  (1-40),  alto  (1-25). — Hace  scrolí 
una  columna  hacia  la  derecha  y  coloca 
una  columna  de  espacios  en  la  parte 
izquierda  de  la  ventana. 

LEFTW  columna  (0-39),  fila  (0-24), 

ancho  (1-40),  alto  (1-25).— Hace  un 

scroll  hacia  la  izquierda. 

UPW  columna  (0-39),  fila  (0-24), 
ancho  (1-40),  alto  (1-25).— Hace  un 

scroll  hacia  arriba  de  lo  que  se  encuen¬ 
tre  en  la  ventana. 

DOWNW  columna  (0-39),  fila  (0-24), 
ancho  (1-40),  alto  (1-25).— Hace  un 

scroll  hacia  abajo  en  la  ventana. 

FLASH  número  de  veces  (0-255), 
velocidad  (0-255),  columna  (0-39),  fila 
(0-24),  ancho  (1-40),  alto  (1-25).— Hace 
intermitente  la  ventana. 

FILL  código  de  pantalla  (0-255), 
color  (0-15),  columna  (0-40),  fila  (0-24), 
ancho  (1-40),  alto  (1-25).— Rellena  la 
ventana  con  el  carácter  que  se  indique  y 
un  determinado  color.  Puede  ser  nece¬ 
sario  usar  FILL  antes  de  REV  o  INV  si 
la  ventana  contiene  espacios  del  mismo 
color  que  el  de  la  pantalla.  En  este  caso, 
un  espacio  invertido  no  se  vería. 

BFLASH  número  de  veces  (0-255), 
velocidad  (0-255),  color  1  (0-15),  color  2 
(0-15). — Hace  intermitente  el  color  del 
borde  de  la  pantalla  con  los  colores 
indicados. 

CENTRE  expresión  alfanumérica. — 
Centra  la  cadena  en  la  línea  de  pantalla 
en  la  que  está  el  cursor.  Si  la  longitud  de 
la  cadena  es  mayor  de  40  caracteres, 
entonces  el  comando  se  comporta  igual 
que  un  PRINT  normal.  Cualquier 
comando  que  se  pueda  utilizar  con 
PRINT  es  también  válido  para  CEN¬ 
TRE. 

LOCATE  posición  x  (0-39),  posición 
y  (0-24). — Mueve  el  cursor  a  la  posición 
x,  y  señalada.  0,0  es  arriba  a  la  izquierda 
(home)  y  39,24  abajo  a  la  derecha. 

Comandos  de  disco 


Todos  los  comandos  de  disco,  excep¬ 
to  RECORD,  aceptan  como  parámetros 
las  cadenas  del  tipo  Basic  4.0.  Esto 
quiere  decir  que  los  parámetros  que 
siguen  a  los  comandos  pueden  ir  en 
cualquier  orden.  Por  ejemplo,  DLOAD 
“programa  basic”,  número  de  fichero, 
df)  (número  de  drive),  u9  (número  de 


periférico)  y  DLOAD  u9,  dO,  “pro¬ 
grama  basic”  son  ambos  comandos 
válidos.  La  mayoría  de  los  tipos  de 
parámetros  están  permitidos.  Algunos 
de  estos  parámetros  son  opcionales. 

1.  Algunos  comandos  necesitan  que 
se  especifique  un  nombre  de  fichero.  Un 
nombre  de  fichero  puede  ser  una  expre¬ 
sión  entre  comillas,  o  una  variable  alfa- 
numérica  entre  paréntesis.  Ejemplos: 
(right$cc,2$0  o  (a$). 

2.  Un  número  de  drive,  D  seguido  de 


Cuando  se  presentó 
el  C-64, 

Commodore  tenía 
una  versión 
avanzada  de  su 
Basic  2.0  llamada  Basic 
4.0.  Este  era  standard  en 
los  Pets,  pero  no  se  usó  en 
el  C-64,  probablemente 
porque  el  C-64  se  habría 
convertido  en  un  barato 
competidor  para  los  Pets. 
Yo  era  uno  de  los  que 
usaban  extensiones  del 
Basic  como  las  arriba 
mencionadas,  hasta  que 
mi  economía  no  me 
permitió  seguir  con  ello. 


0  ó  1.  Generalmente  es  opcional.  El 
drive  por  defecto  es  el  0. 

3.  Un  número  periférico  (de  unidad), 
U,  seguido  de  4-31.  Es  siempre  opcio¬ 
nal,  por  defecto  se  toma  la  unidad  8. 

4.  Un  número  de  fichero  lógico  -# — 
seguido  de  1-255. 

5.  Cuando  se  abre  un  fichero  para 
escritura,  DOPEN  necesita  el  tipo  de 
fichero  del  que  se  trata.  Debe  ser  uno  de 
los  siguientes: 

á)  W.  Una  W  indica  que  se  va  a  abrir 
un  fichero  secuencial  de  escritura. 

b)  L,  seguido  de  1-254.  Una  L  indica 
que  el  fichero  que  se  va  a  abrir  es  rela¬ 
tivo.  El  número  que  la  sigue  es  la  longi¬ 
tud  del  registro.  Si  no  se  especifica  nin¬ 
gún  tipo  de  fichero,  se  asume  que  es  un 
fichero  Read. 

6.  @.  Una  @  como  primera  letra  de 
un  fichero  hará  que  se  reemplace  un 


fichero  si  ya  existe,  en  las  órdenes 
DSAVE  o  DOPEN.  Ejemplos:  pro¬ 

grama  basic”  o  (“@”+nombre$). 

7. 1,  seguido  de  dos  letras  cualquiera. 
Esto  es  opcional  en  el  comando  HEA- 
DER.  Indica  el  identificador  del  disco 
que  se  va  a  formatear.  Si  se  omite  la  I, 
sólo  se  borrará  el  directorio. 

APPEND#  número  de  fichero  (1- 
255). — Nombre  de  fichero  indica  al 
disco  que  cualquier  dato  que  se  envíe 
sea  añadido  al  fichero  especificado. 

CONCAT  fichero  origen,  fichero 
destino. — Une  los  dos  ficheros  en  uno 
solo. 

DOPEN#  número  de  fichero,  nombre 
del  fichero,  tipo  de  fichero  (opcional). — 
Abre  un  fichero. 

DCLOSE#  número  de  fichero,  cierra 
el  fichero  especificado. 

DCLOSE. — Cierra  todos  los  ficheros 
abiertos. 

DCLOSE  número  de  unidad. — Cie¬ 
rra  todos  los  ficheros  abiertos  en  la 
unidad. 

RECORD#  número  de  fichero,  núme¬ 
ro  de  registro  (1-65535),  byte  opcional 
(1-254). — Coloca  el  puntero  del  disco  en 
el  lugar  especificado. 

HEADER  nombre,  D  número  de 
drive,  identificador  (opcional). — Forma- 
tea  un  disco. 

COLLECT.— Valida  un  disco. 

BACKUP  D  drive  origen  TO  D  drive 
destino. — Hace  una  copia  del  disco. 
Este  comando  necesita  una  unidad  de 
disco  doble  como  la  Commodore  4040  o 
la  MSD. 

COPY  fichero  origen  TO  fichero 
destino. — Hace  una  copia  de  un  fichero 
secuencial. 

DSAVE  nombre,  guarda  un  pro¬ 
grama  Basic  en  el  disco. 

DLOAD  nombre,  lee  un  programa 
Basic  desde  el  disco. 

CATALOG  nombre  de  fichero  (op¬ 
cional). — Lista  el  directorio  en  la  panta¬ 
lla  o  en  otro  periférico. 

RENAME  nombre  antiguo  TO  nom¬ 
bre  nuevo. — Renombra  un  fichero. 

SCRATCH  nombre  de  fichero. — 
Borra  un  fichero  del  disco. 

DIRECTORY  nombre  de  fichero 
(opcional). — Hace  lo  mismo  que  CA¬ 
TALOG. 

EXEC#  número  de  fichero,  nombre 
de  fichero. — Ejecuta  un  fichero  secuen¬ 
cial.  Cualquier  programa  Basic  puede 
listarse  a  un  fichero  secuencial  (usando: 
open2, 8,2, “nombre, s,w”:  cmd2:  list)  y  a 
continuación  ejecutarse  mediante  este 
comando,  pero  en  el  programa: 

1.  No  pueden  abrirse  ni  cerrarse 
ficheros, 

2.  No  pueden  usarse  saltos  (goto, 
gosub,  then...). 

3.  Sólo  puede  ejecutarse  en  modo 
directo. 

MERGE  número  de  fichero,  nombre 
de  fichero. — Mezcla  el  fichero  del  disco 
con  el  programa  que  esté  en  ese 
momento  en  la  memoria.  Los  ficheros 
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deben  haber  sido  creados  con  List 
(véase  EXEC).  MERGE  y  EXEC  pue¬ 
den  usar  los  mismos  ficheros. 

BLOAD  nombre  de  fichero,  P  direc¬ 
ción  de  destino  (opcional).  Ejemplo: 
BLOAD  “código  máquina”,  PSCOOO 
carga  en  $C000  (hexadecimal)  el  pro¬ 
grama.  BLOAD  “código  máquina” 
simplemente  carga  en  la  dirección 
original. 

BSAVE  nombre  de  fichero,  P  direc¬ 
ción  inicial  TO  P  dirección  final. — 
Guarda  una  zona  de  memoria.  Ejemplo: 
BSAVE  “basic  4.5”,  P$8000  TO  PSAOOO 
guarda  una  copia  del  Basic  4.5  en  el 
disco. 

SEE#  número  de  fichero,  nombre  del 
fichero. — Sirve  para  visualizar  un  fiche¬ 
ro  del  disco. 

AFFIX  nombre  de  fichero. — Carga 
un  programa  Basic  al  final  del  pro¬ 
grama  que  se  tiene  en  la  memoria.  Es 
similar  al  MERGE  que  utilizan  otros 
Basics. 

DCLEAR. — Inicíaliza  la  unidad  de 
discos. 

Comandos  musicales 


VTYPE  número  de  voz  (1-3),  PUL  o 
TRI  o  SAW  o  NOI  (0-65535),  SYNC  o 
RING  (opcional). — Define  el  tipo  de 
voz. 

VOL  (0-15). — Ajusta  el  volumen. 

ENV  número  de  voz  (1-3),  ataque  (0- 
15),  decaimiento  (0-15),  sostenimiento 
(0-15),  relajación  (0-15). — Ajusta  la 
envolvente. 

NOTE  número  de  voz  (1-3),  frecuen¬ 
cia  (0-65535),  duración  (0-255).— Toca 
una  nota. 

PLAY  número  de  voz  (1-3),  dirección 
inicial  de  las  notas,  longitud  o  OFF- 
IRQ,  toca  mientras  está  corriendo  el 
programa. 

VIBRATO  número  de  voz(l-3)ONo 
OFF  conecta  o  desconecta  el  vibrato. 


MON. — Salta  al  monitor  de  código 
máquina.  Este  monitor  es  el  conocido 
Supermon  de  Jim  Butterfield. 

COLOR  borde  (0-15),  pantalla  (0-15), 
color  1  (0-15),  color  2  (0-15),  color  3 
(0-15). — Ajusta  los  valores  del  color  en 
los  diferentes  registros.  Todos  los  valo¬ 
res  a  continuación  de  los  del  borde  son 
opcionales. 

Comandos  de  Sprites 


SCOLR  número  de  sprite  (1-8),  color 
del  sprite  (0-15),  multicolor  1  (opcional) 
(0-15),  multicolor  2  (opcional)  (0-15). — 
Ajusta  los  valores  de  los  colores  del 
sprite  indicado.  Cada  sprite  puede  tener 
un  color  diferente  y  son  independientes 
entre  sí.  Los  últimos  dos  parámetros 
son  opcionales.  Son  sólo  necesarios 
cuando  se  ha  seleccionado  el  modo  mul¬ 
ticolor.  Estos  dos  colores  son  los  mis- 


A demás  se  incluye 
una  posibilidad  de 
añadir  nuevos 
comandos  al  Basic. 
Cuando  el  Basic 
4.5  encuentra  el  carácter 
como  si  fuera  un 
comando  Basic  ejecuta 
un  salto  indirecto  a 
donde  indique  el 
vector  situado 
en  $0334,  820 
en  decimal.  Colocando 
tu  propia  rutina 
en  la  dirección  $0334 
puedes  añadir 
un  nuevo  juego  de 
instrucciones. 


mos  para  todos  los  sprites  y  sólo  pueden 
verse  cuando  el  sprite  se  encuentra  en 
modo  de  media-resolución,  con  el 
comando  SMED.  Ejemplos: 

SCOLR  1,  7. — Cambia  el  sprite  1  a 
amarillo  sin  cambiar  los  valores  de  los 
otros  dos  colores  para  multicolor. 

SMED  1  ON:  SCOLR  1 , 2,  3,  4.— Co¬ 
loca  el  sprite  1  en  media-resolución, 
entonces  se  ajustan  los  valores  del  color 
(rojo,  cyan  y  púrpura)  que  se  mostrarán 
en  el  sprite  1. 

SDUBL  número  de  sprite,  X  y/o  Y  u 
OFF. — Hace  que  el  sprite  correspon¬ 
diente  se  expanda  en  las  direcciones  x/y 
o  vuelva  a  la  normalidad.  Ejemplos: 

SDUBL  2,  x.— Expande  el  sprite  2  a 
lo  ancho. 

SDUBL  3,  y. — Expande  el  sprite  3  a 
lo  alto. 

SDUBL  4,  x,  y. — Expande  el  sprite  4 
en  las  dos  direcciones. 

SDUBL  4  OFF.— Devuelve  a  la  nor¬ 
malidad  al  sprite  4. 

SBACK  número  de  sprite  ON  u 
OFF. — Conecta  o  desconecta  la  priori¬ 
dad  del  sprite  con  respecto  al  fondo. 
Ejemplos: 

SBACK  8  ON. — Hace  que  el  sprite  8 
se  desplace  por  debajo  de  los  objetos 
que  haya  en  la  pantalla.  Pueden  ser 
caracteres,  gráficos  bit-map,  etc. 

SBACK  8  OFF.— El  sprite  8  pasa 
ahora  por  encima  de  los  gráficos  de  la 
pantalla. 

SMED  número  de  sprite  (1-8)  ON  u 
OFF. — Conecta  o  desconecta  el  modo 
media-resolución.  En  modo  alta-resolu¬ 
ción,  cada  sprite  puede  tener  sólo  un 
color,  el  del  segundo  parámetro  de  la 
instrucción  SCOLR.  En  media-resolu¬ 
ción  o  multicolor,  los  otros  dos  colores 
pueden  verse,  aunque  se  pierde  defini¬ 
ción.  Ejemplos: 


SMED  1  ON.— El  sprite  1  se  coloca 
en  media-resolución. 

SMED  1  OFF.— Ahora  en  alta 
resolución. 

SPRITE  número  de  sprite  (1-8),  ON, 
banco  de  datos  (0-255)  o  OFF. — Encien¬ 
de  un  sprite  y  elige  un  banco  de  datos  en 
el  que  está  definido  el  sprite.  El  VIC-II 
sólo  puede  acceder  a  16K  al  mismo 
tiempo,  y  para  efectos  de  programa¬ 
ción  con  sprites  estos  16K  están  dividi¬ 
dos  en  256  zonas  de  64  bytes  cada  una 
llamadas  bancos.  No  coinciden  exacta¬ 
mente  con  los  63  bytes  necesarios  para 
definir  un  sprite.  A  continuación  hay  un 
par  de  ejemplos. 

SPRITE  1  ON  13.— Enciende  el  sprite 
1  con  el  banco  de  datos  13  (en  el  buffer 
del  cassette). 

SPRITE  1  OFF.— Desconecta  el 
sprite  1. 

SPIC  banco  de  datos  (0-255),  variable 
alfanumérica. — Permite  que  los  datos 
de  un  sprite  se  almacenen  en  cadenas 
alfanuméricas.  SPIC  es  un  mnemónico 
para  “Sprite-PICture”.  Ejemplo: 

SPIC  200,  BC$(7).— Almacena  los 
primeros  63  bytes  de  la  cadena  BC$(7) 
en  el  banco  de  memoria  200.  Si  la  longi¬ 
tud  de  la  cadena  es  menor  de  63  bytes, 
no  se  almacenará  nada. 

SPOS  número  de  sprite,  posición  x  (0- 
511),  posición  y  (0-255).— Mueve  el 
sprite  a  la  posición  x,  y  iniciada.  La 
posición  0,0  es  la  esquina  superior 
izquierda  y  511,255  es  la  inferior  dere¬ 
cha  (que  quedan  fuera  de  la  pantalla). 

JOY  1  ó  2. — Lee  el  joystick.  Después 
de  ejecutarlo,  tres  variables  contienen 
información  sobre  la  posición  del  joys¬ 
tick:  La  variable  JX  contiene  el  incre- 
mento-x,  JY  el  incremento-y  y  FB  si  el 
botón  de  fuego  estaba  pulsado. 

La  instrucción  JOY  sustituye  a  cuatro 
o  cinco  líneas  normales  de  Basic.  El 
incremento  deseado  (que  es  el  valor  que 
van  a  tomar  las  variables)  se  ajusta 
mediante  POKE  38819,  incremento. 
Puede  parecer  difícil  entender  cómo 
funciona  este  comando,  de  modo  que 
conecta  el  joystick  y  prueba  el  siguiente 
programilla  con  diferentes  incrementos. 

10  INPUT“INCREMENTO”;INC: 

POKE  38819,  INC 

20  JOY  1:  PRINT”JX=”;  HX;  “JY=”; 

JY;  “FB=”;  FB:  GOTO  20 

Haciéndolo  todo  más  fácil 


Además  de  los  nuevos  comandos 
Basic,  se  han  añadido  otras  cosillas  para 
facilitar  el  trabajo  a  los  programadores. 
Algunos  de  los  comandos  del  Basic 
normal  han  sido  ligeramente  modifica¬ 
dos.  Por  ejemplo,  RESTORE  puede  ir 
seguido  de  un  número  de  línea,  de  tal 
modo  que  puede  colocarse  el  puntero  en 
un  número  de  línea  determinado  en  vez 
de  al  principio  del  programa  (como 
hace  el  programa  de  demostración  que 
aparecerá  al  final  de  este  artículo). 

El  comando  LIST  se  ha  modificado 
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de  tal  modo  que  no  imprime  “ready”  al 
final  del  listado.  Un  apostrofe  (’)  puede 
usarse  para  sustituir  a  los  REM  y  es 
posible  utilizar  números  hexadecimales 
si  van  precedidos  por  el  signo  dólar. 

Además  se  incluye  una  posibilidad  de 
añadir  nuevos  comandos  al  Basic. 
Cuando  el  Basic  4.5  encuentra  el  carác¬ 
ter  como  si  fuera  un  comando 

Basic  ejecuta  un  salto  indirecto  a  donde 
indique  el  vector  situado  en  $0334,  820 
en  decimal.  Colocando  tu  propia  rutina 
en  la  dirección  $0334  puedes  añadir  un 
nuevo  juego  de  instrucciones 

Funciones  de  edición 


El  editor  de  pantalla  del  C-64  se  ha 
modificado  con  algunos  comandos 
adicionales. 

CTRL-B  borra  todo  lo  que  haya 
desde  el  principio  de  la  línea  hasta  el 
cursor. 

CTRL-D  mueve  el  cursor  hasta  el 
principio  de  la  última  línea. 

CTRL-L  borra  hasta  el  final  de  la 
línea. 

CTRL-O  repite  todo  lo  que  sale  por 
la  pantalla  en  la  impresora.  Cualquier 
cosa  que  aparezca  en  la  pantalla, 
incluido  lo  que  se  está  tecleando,  se 
enviará  a  la  impresora.  De  este  modo  se 
puede  utilizar  el  64  como  máquina  de 
escribir. 

Si  vas  a  usar  el  ordenador  como 
máquina  de  escribir,  es  mejor  que  des¬ 
conectes  la  rutina  de  detección  de  erro¬ 
res.  Si  no  lo  haces,  cada  vez  que  pulses 
RETURN,  el  ordenador  enviará  un 
“Syntax  error”  a  la  impresora.  Para 


.desconectar  esta  rutina  hacen  falta  dos 
POKES: 

POKE  768,  PEEK(770):  POKE  769, 
PEEK(771). 

Asegúrate  de  que  lo  haces  todo  en 
una  sola  línea.  Teclea  SYS  64738 
cuando  hayas  terminado. 

Otra  posibilidad  del  CTRL-O  es  sacar 
listados  de  programas.  Teclea  CTRL-O  / 
LIST  /  CTRL-O  para  sacar  el  listado 
por  la  pantalla.  Pulsar  CTRL-O  dos 
veces  desconecta  el  modo  impresora. 

CTRL-P  saca  una  copia  de  todo  lo 
que  está  en  la  pantalla  en  ese  momento 
(hardcopy). 

CTRL-U  borra  todo  lo  que  está  por 
debajo  y  a  la  derecha  del  cursor. 

CTRL-W  borra  la  línea  entera. 

CTRL-X  sirve  para  salir  del  modo 
comillas  o  del  modo  insert. 

Programas  de  demostración 


Al  final  de  esta  serie  de  artículos  hay 
varios  programas  de  demostración.  Uno 
usa  los  comandos  de  sprites  y  otro  el 
nuevo  comando  RESTORE. 

También  hay  una  utilidad  que  mueve 
la  zona  de  gráficos  a  $C000  (49152).  De 
este  modo  puedes  utilizar  las  direccio¬ 
nes  $C400  a  $CFFF  y  $E000  a  $FFFF 
para  nuevos  juegos  de  caracteres,  sprites 
y  más  cosas.  La  pantalla  se  coloca  en 
$C000. 

Normalmente,  la  zona  de  gráficos  va 
desde  $0000  hasta  $3FFF.  Es  la  misma 
zona  que  utiliza  el  Basic,  por  lo  que 
queda  poco  espacio  para  los  gráficos. 

Los  demás  programas  son  cargadores 
de  parte  del  Basic  4.5.  Si  vas  a  teclear  el 


Basic  4.5,  debes  teclear  primero  el  pro¬ 
grama  principal.  Contiene  lo  impres¬ 
cindible  para  que  el  Basic  4.5  funcione. 
Después  puedes  teclear  los  cargadores 
que  contienen  los  comandos  para  los 
sprites. 

Puedes  entonces  elegir  los  comandos 
que  quieras.  Sin  embargo,  debes  teclear 
antes  el  cargador  que  contiene  las  ruti¬ 
nas  para  los  sprites  y  “SDUBL”,  por¬ 
que  algunas  partes  son  usadas  por  todos 
los  demás  comandos  de  sprites. 

La  razón  para  que  haya  cargadores 
diferentes  es  que  si  estás  interesado  sólo 
en  sprites  y  música,  por  ejemplo,  no 
tendrás  que  teclear  todo  un  programa 
que  contenga  los  comandos  de  disco  y 
ventanas. 

No  obstante,  resulta  incómodo  a  la 
hora  de  leer  el  Basic  tener  que  hacerlo 
comando  por  comando,  sobre  todo  si 
no  se  dispone  de  unidad  de  disco.  La 
solución  es  teclear  todas  las  partes  como 
si  se  tratara  de  un  solo  programa,  cam¬ 
biando  el  número  de  las  primeras  líneas, 
pero  dejando  intacto  el  valor  de  los 
bucles. 

Como  podréis  ver,  cada  línea  tiene  7 
datas  y  una  suma  de  control,  con  lo  que 
teclear  el  programa  no  se  convierte  en 
una  expedición  en  busca  de  los  datas- 
que-están-mal  por  los  que  no  funciona  el 
programa.  Si  os  equivocáis,  el  ordena¬ 
dor  os  dirá  cuál  es  la  línea  que  no  está 
bien  y  podréis  modificarla.  Si  os  suelta 
de  repente  un  7ILLEGAL  QUANTITY 
ERROR  será  señal  de  que  os  habéis 
dejado  algún  data.  Teclead  entonces 
PRINT  L  y  os  dirá  la  línea  en  la  que  está 
el  fallo.  Si  no  lo  encuentras,  mira  en  las 
líneas  anteriores. 


MAS  SOBRE  BASIC  4.5 

El  Basic  4.5  es  una  útil  expansión  del  Basic,  que 
añade  comandos  al  C-64.  El  secreto  para  cargar  y 
ejecutar  los  programas  que  vienen  a  continuación  es 
el  siguiente: 

1.  Primero,  teclea  los  subprogramas  que  te 
interesen.  Siempre  tendrás  que  teclear  el  cargador 
principal  (listado  1).  Si  vas  a  utilizar  algún  comando 
de  sprites  tendrás  que  teclear  también  el  listado  4. 
Después  de  teclearlos  grábalos  y  compruébalos. 

2.  Para  utilizar  el  Basic  4.5  lee  primero  el 
cargador  principal  y  ejecútalo  (con  RUN)  antes  de 
leer  los  demás  programas. 

3.  Después,  lee  y  ejecuta  cada  subprograma  que 
te  interese.  Asegúrate  de  ejecutar  el  cargador  de 
sprites  (listado  4)  antes  de  los  comandos  de  sprites. 

4.  Para  conectar  el  Basic  4.5  teclea  SYS  64738. 
Ahora  puedes  leer  los  programas  de  demostración  o 
teclear  tus  propios  programas. 


Nota:  STOP/RESTORE  no  desconecta  el  nuevo 
Basic,  pero  la  pulsación  de  RESTORE 
individualmente  deja  cologado  al  ordenador. 
Intentaremos  daros  una  solución  en  el  próximo 
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CONTROL 

1)1  INGRESOS 

Y  GASTOS 

Cassette  7.500- pts 
Joystick  2.7,00.-pts 

■ 

Otros  Programas 

MACHINE  LIGHTNING 
BASIC  LIGHTNING 
WHITE  LIGHTNING 

-  Contabilidad  doméstica  (cassette) 

-  Grabador  de  Eproms 

-  Grabador  de  Voz  (Voice  Master) 

-  Sandra 

-  Quinielas  2 

-  Superbase  64  (base  de  datos) 

-  Practícale  (hoja  de  cálculo) 


comunidad. Conceptos  de  desglose,  d 
recibo  y  desglose  de  gastos,  control  d 
impagados,  etc.  35.000  -  Pts. 


NOVEDADES 

AGENDA  TELEFONICA 
Marca  el  teléfono  automáticí 
Disco  +  Cartucho  +  Cable. 


CONTABILIDAD  PROFESIONAL 
Adaptado  al  plan  general  contable. 
Grabación  en  cassette. 


Adquiéralos  en  cualquier 
establecimiento  autorizado 
o  directamente  a: 

Casa  de  Software,  s.a. 
NUEVA  DIRECCION: 
TAQUIGRAFO  SERRA,  7,  5.°  B 
Tels.  321  96  36  -  321  97  58 
08029  BARCELONA 


i  i  Deseo  recibir  información  de  los  siguientes  programas: 

i  i  Deseo  recibir  contra  reembolso  los  siguientes  programas 


L 
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Libros  para  commodore 


EL  COMMODORE  64  Y 
LOS  NIÑOS, 

por  Meyer  Solomon 
Los  ordenadores  al 
alcance  de  los 
niños.  De  utilidad  a 
partir  de  los  7  años. 
PVP  490  ptas. 


MICROORDENADORES 
Y  CASSETTES, 

por  Mlke  Salem 

programas,  se 


COMMODORE  64  OUE 
ES,  PARA  QUE  SIRVE  Y 
COMO  SE  USA 


PRONTUARIO  DEL 
COMMODORE  64 

Prontuario 
Commodore.  Todo 
lo  que  hay  que 
saber  al  alcance  de 


Schofield 

Manual  de  Inidi 

PVP  950  ptas. 


problemas  de  carga 

PVP  800  ptas. 


PVP  350  ptas. 


COMMODORE  64, 
APLICACIONES 
PRACTICAS  PARA  LA 
CASA  Y  LOS 
PEQUEÑOS  NEGOCIOS 
por  Chris  Callender 
El  Commodore 


El  léxico  ¡nforn 


Juegos  simpáticos 


Inglés-Español 

PVP  990  ptas. 


PVP  650  ptas. 


PVP  830  ptas. 


mnOOORESH 

y  los  niños 


EDITORIAL  NORAY,  S.A, 

rvasio  de  Cassolas,  79  -  08022  Barcelona  (ESPAÑA)  -  Tel  (93)  21 111  4 


ENVIOS  GRATIS 


Pedidos  a  NORAY,  S.A. 
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somos  especialistas 
en  COMMODORE 


VIC-20 

GESTION  DE  FICHEROS.  16K  1.800 

DESENSAMBLADOR.  16K .  1.800 

BASE  DE  DATOS.  16K .  4.500 

CONTABILIDAD  PERSO¬ 
NAL.  16K .  2.500 

CARGADOR  RAPIDO.  3+3Ko 

16K .  1.800 

40  COLUMNAS  16K .  1.800 


C-64 

CARGADOR  RAPIDO  1.800 

GEOGRAFIA.  Ciudades  de  España  1.500 

EDITOR  CODIGO/MAQUINA  3  000 

COMPILADOR  (d) . 5.000 

CONTABILIDAD  PERSONAL  2  500 

EDITOR  DE  DISCOS  (d) .  2.300 

BASE  DE  DATOS .  4.500 


Solicite  catálogo  completo 
de  programas  y  accesorios 


********************************** 

*  CARTUCHO  16  K  VIC-20.  Conmutable  a  8  o  3  K.  9.500  * 
* JOYSTICK  doble  botón  disparo.  Para  C-64  y  Vic-20  1.900  J 

*  DISKETTES  5.25"  SS/DD  nap.  ¡IO  u.)  4.080  * 

*  DISKETTES  5.25"  SS/DD  FHlWUiJ  colores  (lOu.)  4.460  * 

*  DISK  NOTCHER.  (Taladro  para  discos  Simple  cara)  2.525  * 

*  THE  FINAL  CARTRIDOE.  Más  de  IO  funciones  extras  13.900  * 


ENVIOS  CONTRARREEMBOLSO 


SOFTWARE  A  MEDIDA 


Lector  de  volcados  hexadecimales 

Aquí  tenéis  un  programa  para  leer  los  volcados  hexadecimales 
que  a  veces  aparecen  sustituyendo  a  los  listados  de  “datas”. 
Un  vólcado  hexadecimal  es  una  representación  del  contenido 
de  las  posiciones  de  memoria  en  hexadecimal.  Normalmente 
hace  falta  un  monitor  para  introducirlo,  pero  también  podéis 
utilizar  el  programa  que  viene  a  continuación. 

La  única  pregunta  que  hace  es  la  dirección  inicial  del  pro¬ 
grama,  que  es  el  número  de  cuatro  cifras  que  aparece  a  la 
izquierda  de  la  primera  fila  de  valores  — en  el  ejemplo  033C — . 
Lo  podéis  introducir  en  hexadecimal  (precedido  por  el  signo 
dólar)  o  en  decimal  si  lo  convertís  previamente. 

La  rutina  de  conversión  de  la  línea  3  es  obra  de  Pere  Masats  y 
apareció  en  el  número  5  del  Club  Commodore. 


Esto  es  un  vo Icado  norma l  de 

C* 

PC  IRQ  SR  RC  XR  VR  SP 
.  ;B3DE  Efl31  33  40  27  06  F6 

.  :033C  DF  DF  CF  FF  50  FF  0C  OF 

.  :  0344  OF  FF  00  FF  75  FF  00  FF 

.  :034C  00  69  9C  FF  52  FF  DE  FF 

.  ¡0354  HE  BO  31  OF  C5  CF  00  5F 

.  :035C  CO  FF  00  FF  FF  01  00  00 

.  :0364  00  B5  00  FF  00  FF  00  FF 

La  dirección  inicial  es  S033C 
(828  en  decimal). 

Asi  oiueda  convertido  en  datas. 

100  DATA  OF,OF,CF,FF,5D,FF,0C,DF 
105  DATA  DF,FF,00,FF,75,FF,00,FF 
110  DATA  00,69,9C,FF,52,FF,DE,FF 
115  OATA  AE,BO,31,DF,C5,CF,00,5F 
120  DATA  CD,FF,00,FF,FF,01,00,00 
125  OATA  00,B5,00,FF,00,FF,00,FF 
130  DATA  ENO 

El  ultimo  data  ha  de  ser  "ENO" 


L i stado  de  l  programa  conversor 

0  REM  LECTOR  DE  DATAS  HEXADECIMALES 

1  GOTO 10 

2  I 

3  0=0 : 1 FH*> " “ THENFOR I  =  1 TOLEN <HS) : A=ASC < 
M 1 0*  <  H* , 1 , 1 >  > -48 : 0=0* 1 6+R+  < A>9  >  *7 : NEXT 

4  RETURN 

5  s 

10  INPUT"DIRECCION  INICIAL", -H* 

15  0=VAL  (  AS  ) 

17  IFO=0THENH*=MIO*(HS,2> :G0SUB3 
20  X=0 

30  REAOHS ;  I FHSO " ENO " THENG0SUB3  :P0KEX,0 
:X=X+1 :GOTO30 
40  ENO 
90  : 

95  REM  OATAS  A  PARTIR  DE  AQUI 

96  REM  EL  ULTIMO  OATA  HA  DE  SER  "ENO" 


Fabricando  datas 

Vic-20,  C-64,  C-128  (modo  64). 

En  el  número  1 1  de  Commodore  World  apareció  el  pro¬ 
grama  “datas”  a  partir  de  un  programa  en  código  máquina. 

El  “Constructor  de  Datos”  funcionaba  únicamente  con  disco. 
Aquí  tene'is  un  programa  para  cinta.  No  tiene  nada  que  ver  con 
el  “Constructor  de  Datos”,  pero  realiza  la  misma  función. 
Podéis  obtener  líneas  data  de  gráficos,  programas  en  código 
máquina  o  de  cualquier  zona  de  memoria  en  general. 

El  funcionamiento  es  de  lo  más  sencillo.  En  primer  lugar,  hay 
que  tener  en  la  memoria  el  programa  c.m.,  los  gráficos  o  cual¬ 
quier  otra  cosa  de  la  que  se  quieran  crear  los  “datas”.  A  conti¬ 
nuación  se  lee  el  Datamaker  y  se  introducen  los  siguientes 
parámetros: 

—  Inicio  programa:  El  inicio  de  la  zona  de  memoria  en  la  que 
están  los  datos. 

—  Final  programa:  El  final  de  la  zona  de  datos. 

—  Línea  inicial  datas:  El  primer  número  de  línea  del  pro¬ 
grama  que  se  va  a  crear.  No  ha  de  ser  menor  de  100  puesto  que 
se  borraría  el  Datamaker. 

—  Incremento  entre  líneas:  La  separación  entre  los  números 
de  línea. 

—  Datas  por  línea:  El  número  de  datas  que  van  en  cada  línea. 
No  conviene  pasar  de  10-12. 

—  Suma  de  control  (s/n):  Si  se  responde  “s”  cada  línea  finali¬ 
zará  con  un  valor  igual  a  la  suma  de  todos  los  datas  de  esa  línea. 

Cuando  el  programa  finaliza,  se  autodestruye,  dejando  tan 
sólo  las  línea  Data. 


0  GOTO 10 

1  :  DATAMAKER— 64  <01985  ALVARO  IBANEZ 

2  V=  I NT < A/256 >  :X=A-V*2S6  :POKED,X  :P0KED+1 
,V:RETURN 

3  B=PEEK(A>+PEEK(A+1  >*256  sRETURN 
10  INPUT" INICIO  PROGRAMA" ;I 

20  INPUT-FINAL  PROGRAMA" ;F 

21  INPUT-LINEA  INICIAL  DATAS" ;L 

25  INPUT" INCREMENTO  ENTRE  LINEAS" ;C 

26  INPUT  "DATAS  POR  LINEA" ;DL 

30  INPUT  "SUMA  DE  CONTROL  <  SXN )  "  ;  A* : P0KE83 
0,-<R*="S“> 

40  A=I:0=828:G0SUB2 
42  A=F :D=833 :G0SUB2 
44  A=L: 0=831 :GOSUB2 
46  P0KE835,C 

48  P0KE836,DL:A=831  :G0SU83:G0T052 

50  i 

51  A=831  :G0SUB3:B=B+PEEK<835>  :A=BsD=831  : 
G0SUB2 

52  PRINT"  CCLR3 C2CRSRD3"MID*(STR*(B>  .2)  "D 
ATA  "; 

55  P0KE63 1,13: POKE632 , 1 3 :P0KE633 ,13: POKE 
198,3 

60  A=828  :  G0SUB3  :  CO=0  :  FOR I  =0TOPEEK  (  836 >  - 1 

65  CO=CO+PEEK(B+I> 

66  PRINTMID*<STR*(PEEK(B+I > > ,2> “ , " ; 

67  IF(PEEK(828>  +  I>=PEEK<833>  >AN0(PEEK<82 
9>>=PEEK<834> >THENSW=1 

70  NEXT 

75  PRINT"  CCRSRL3  "  ;  :  I FPEEK < 830 > THENPR I NT 
"  CCRSRL3 ,  "MI0*(STR*<C0>  ,2>  ,- 

80  PRINTCHR*<13>,-  :  IFSWTHENPRINT"G0T095CH 

81  PRINT"GOTO50CHOM3 " ; 

85  A=B+PEEK  <  836 >  :  D=828 :  GOSUB2 
90  ENO 

95  POKE828,0 

96  PR I NT " C CLR 1 1 2CRSRD 3 " PEEK < 828 >  :PRINT"G 
0T096CH0M3",-: P0KE63 1,13: P0KE632 , 1 3  : POKE  1 

97 , P0KE828 , PEEK  < 828 >  + 1 : 1 FPEEK ( 828 >  =96THE 
N99 

98  ENO 

99  PRINT" CCLR3 CCRSR03 "  : FOR I  =95T099 : PRINT 
I :P0KE536+I , 13 :NEXT : PRINT" CH0M3 " ; : POKE 19 
8,5 :END 
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ARA  CON  EL  USUARIO 


en  un  conjunto  de  técnicas 
de  autocontrol 
y  en  un  tratamiento. 
Este  consta  de  18  sesiones: 

las  tres  primeras 
son  de  exploración, 
y  las  15  restantes 
están  dedicadas 
a  perseguir  una  reducción 
progresiva 
de  los  cigarrillos  fumados, 
de  acuerdo  a  unos  objetivos 
que  proporciona  el  programa. 

Javier  Pozuelo, 
usuario  del  programa 
y  ya  no-fumador, 
nos  indica  que 
“lo  único  que  pretende 
FUMOSTOP  es  que  dejes 
de  fumar  de  la  forma 
más  agradable  posible, 
consiguiéndolo  ”. 


Ya  lo  dijo  Mark  Twain:  “Dejar  de 
fumar  es  la  cosa  más  fácil  que 
existe.  Yo  sé  lo  que  es,  lo  he  hecho 
50  veces”.  A  pesar  de  esta  apreciación 
no  muy  optimista,  ya  ha  empezado  a 
notarse  el  descenso  de  las  curvas  de  con¬ 
sumo  de  tabaco  en  los  países  más  avan¬ 
zados,  de  tal  forma  que  los  escritores 
con  proyección  de  futuro,  predicen  que 
fumar  será  un  hábito  en  desuso  para  el 
próximo  siglo.  Tan  olvidado  como  la 
costumbre  de  tomar  rape  o  la  de  masti¬ 
car  tabaco. 

Javier  Pozuelo,  periodista  colabora¬ 
dor  de  Radio  Lunes,  Onda  Verde,  el 
periódico  Imágenes,  etc.,  se  encuentra 
en  esta  situación,  ya  no  fuma.  Ello  gra¬ 
cias  al  programa  FUMOSTOP  para 
Commodore-64  de  la  firma  ALEA. 
Todo  empezó  por  una  apuesta:  “Fui  un 
día  a  la  Facultad  de  Periodismo  a  bus¬ 
car  a  una  amiga  y  en  el  cartel  de  anun¬ 
cios  vi  uno  de  la  empresa  ALEA  que 
invitaba  a  todo  aquel  que  quisiera  pro¬ 
bar  voluntariamente  un  programa  para 
dejar  de  fumar  llamado  FUMOSTOP. 
Entre  risas,  síes  y  noes,  aposté  porque  sí 
iba  a  ponerme  en  contacto  con  ellos  y 
probarlo.  De  esta  forma  dejé  de  fumar.” 
El  programa  FUMOSTOP  está  diri- 


— dice  Javier —  y  lo  haces  de  una 
manera  atractiva,  con  técnicas  moder¬ 
nas  y  eficaces  y  sin  riesgo  de  aumentar 
de  peso.  Sin  pastillas  ni  esfuerzos  adi¬ 
cionales  de  voluntad.” 

El  método  está  basado  en  un  con¬ 
junto  de  técnicas  de  AUTOCONTROL 
que  utiliza  actualmente  la  psicología 
moderna  para  tratar  los  problemas  de 
toda  índole.  Básicamente,  el  autocon¬ 
trol  consiste  en  que  es  uno  mismo  quien 
dirige  su  propia  conducta,  cambiando 
sus  pensamientos  y  modificando  las  cir¬ 
cunstancias  en  que  ocurre  la  conducta, 
de  tal  manera  que  se  logre  el  compor¬ 
tamiento  deseado. 

_ Tratamiento  FUMOSTOP 

El  tratamiento  que  recoge  el  pro¬ 
grama  FUMOSTOP  consta  de  18 
sesiones  con  el  ordenador  y  paralela¬ 
mente  la  aplicación  a  la  vida  diaria  del 
entrenamiento  y  reglas  que  proporcio¬ 
nan  una  sesiones.  Las  tres  primeras  son 
de  exploración.  En  ellas  se  explica  el 
método  y  se  lleva  a  cabo  la  autoobser- 
vación.  Las  quince  sesiones  restantes  se 
dedican  al  tratamiento,  el  cual  persigue 
una  reducción  progresiva  de  los  cigarri¬ 
llos  fumados,  de  acuerdo  a  unos  objeti- 


gido  a  aquellos  que  han  elegido  dejar  de 
fumar,  que  quieren  pasar  a  ser  no- 
fumadores  gracias  a  un  programa  di¬ 
señado  por  psicólogos  con  asesora- 
miento  médico  y  basándose  en  los 
enfoques  que  han  demostrado  mayor  efi¬ 
cacia  en  los  estudios  más  recientes.  Su 
finalidad  no  es  otra  que  la  de  poner  los 
medios  para  poder  cortar  con  el  hábito 
de  fumar  de  una  vez  por  todas,  fácil  y 
agradablemente.  “Eliges  dejar  de  fumar 


vos  que  proporciona  el  programa. 
Javier  nos  cuenta  que  “tenía  que 
teclear  cuántos  cigarrillos  fumaba,  en 
qué  circunstancias,  en  qué  cuantía 
deseaba  fumar  esos  cigarrillos,  etc.  para 
finalmente  darme  cuenta  de  que  en  reali¬ 
dad,  tan  sólo  eran  3  ó  4  los  que  fumaba 
porque  verdaderamente  me  apetecían”. 

Aunque  las  sesiones  diarias  deben 
realizarse  por  la  noche,  al  finalizar  la 
jornada,  Javier  se  ponía  delante  del  C- 
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Era  divertido  sentarse  delante  del  Commodore . 
el  manual  y  una  manzana. 


I  ►  64  con  FUMOSTOP  a  media  tarde, 
consiguiendo  el  mismo  resultado,  no 
fumar.  “En  la  primera  sesión  introduje 
mis  datos,  nombre  y  apellidos,  edad, 
cigarrillos  que  fumaba,  etc.  y  el  ordena¬ 
dor  creó  una  ficha  con  mi  nombre  y 
características.  Era  divertido  sentarse 
delante  del  Commodore  64  esperando  a 
que  se  cargara  el  programa,  junto  con  el 
manual  que  lo  complementa  y  una 
manzana.  Sí,  una  manzana  con  el  fin  de 
suplir  la  necesidad  de  fumar.  Si  mien¬ 
tras  estás  esperando  a  que  se  cargue  el 
programa,  tienes  la  sensación  de  querer 
furpar,  lo  mejor  es  dar  mordiscos  a  una 
manzana.” 


esperando  a  que  se  cardara  el  programa,  junto  con 


Equipo  mínimo  para  FUMOSTOP 

El  programa  FUMOSTOP,  cuyo 
equipo  mínimo  necesario  está  formado 
por: 

— Un  Commodore-64. 

— Una  Unidad  de  Discos  Vic-1541. 

— Un  Disco  con  el  programa. 

Está  dirigido  a  todos  aquellos  fumado¬ 
res  que  quieren  dejar  de  fumar.  Pero, 
como  bien  dice  el  manual  de  FUMO- 
STOP,  “ni  es  tan  fácil  como  los  que  pien¬ 
san  que  lo  dejarán  en  cuanto  se  lo  pro¬ 
pongan,  ni  tan  imposible  como  los  que 
sostienen  que  nunca  podrán  privarse  de 
ello.” 


•  EL  METODO  ESTA 
BASADO  EN  UN 
CONJUNTO  DE 
TECNICAS  DE 
AUTOCONTROL 
QUE  UTILIZA 
ACTUALMENTE  LA 
SICOLOGIA 
MODERNA  PARA 
TRATAR 

PROBLEMAS  DE 
TODA  INDOLE. 


•  EL  TRATAMIENTO 
QUE  RECOGE 
FUMOSTOP 
CONSTA  DE  18 
SESIONES  CON  EL 
ORDENADOR  Y 
PARALELAMENTE 
LA  APLICACION  A 
LA  VIDA  DIARIA 
DEL 

ENTRENAMIENTO 
Y  REGLAS  QUE 
PROPORCIONAN 
ESTAS  SESIONES. 


Por  otra  parte,  hay  que  resaltar  la 
importancia  del  manual  complementa¬ 
rio.  Beatriz  Valderrama,  una  de  las 
creadoras  del  programa  perteneciente  a 
ALEA,  comenta  que  todo  lo  que  no  es 
imprescindible  en  cuanto  a  texto  en  el 
programa,  está  en  el  manual.  “El 
manual  es  fundamentalmente  un  com¬ 
plemento  del  programa  e  informa  al 
usuario  sobre  la  composición  del  tabaco, 
sus  efectos  patológicos  en  los  aparatos 
respiratorio,  cardiovascular,  digestivo, 
génito-urinario,  las  alteraciones  cutá¬ 
neas,  los  efectos  sobre  la  mujer,  otros 
síntomas  habituales,  el  tabaco  y  la  ter¬ 
cera  edad,  etc.  Indica  alternativas  ante 
la  sensación  de  querer  fumar  como  es  la 
respiración  abdominal  o  diafragmática, 
beber  agua  en  abundancia  para  diluir  la 
nicotina  y  eliminarla  rápidamente,  men- 
tha  piperita,  infusiones,  zumos  de 
naranja  y  limón...” 

El  manual  contempla  también  unos 
apéndices  para  cuando  en  el  curso  de  las 
sesiones,  el  programa  indica  que  debe 
consultarse  el  manual.  En  estos  apéndi¬ 
ces  vienen  explicadas  las  alternativas  de 
la  respiración  abdominal,  desintoxica¬ 
ción,  control  de  peso,  autoinstruccio- 
nes,  relajación,  mantenimiento  y  pre¬ 
vención. 

“Toda  esta  información  sobre  los 
efectos  patológicos  del  tabaco  — explica 
Javier —  es  totalmente  objetiva  y  pre¬ 
tende  un  enfoque  positivo,  todos  aque¬ 
llos  beneficios  que  uno  puede  ganar 
dejando  de  fumar.  No  es  un  programa 
aburrido  que  asusta  con  las  contraindi¬ 
caciones  señaladas  del  tabaco.  Lo  único 
que  pretende  es  que  dejes  de  fumar  de  la 
forma  más  agradable  posible,  consi¬ 
guiéndolo.” 
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ESPECIFICACIONES 


1  Método  de  impresión 

Serie  de  impactos  por  matriz 
de  9x9 

2  Cabezal  impresor 

9  agujas  (reemplazable)  con 
expectativa  de  vida  de  50 
millones  de  caracteres  a 
100  %  de  uso  continuo. 

3  Velocidad  de  impresión 

Impresión  a  105  cps  uni  o 
bi-direccional,  búsqueda 
lógica  optimizada,  capacidad 
de  impresión  45  Ipm  a  10 
cpi.,  200  ms  de  salto  de  linea 
con  espaciado  de  1/6". 

4  Espaciado  interlínea 

1/6",  1/8",  7/72",  programable 
N/72“,  N/216". 

5.  Alimentación  de  papel 

a)  Tractor  ajustable  entre  4" 
y  10". 

b)  Alimentación  a  fricción 
para  hojas  sueltas  entre 
4”  y  9,5". 

6  Corte  de  papel 

Se  puede  imprimir  desde 
principio  de  página  hasta  una 
pulgada  de  fin  de  papel. 

7  Selección  de  caracteres 
96  caracteres  ASCII,  96 
itálicos,  82  caracteres 
gráficos  Commodore. 
Definición  de  caracteres  por 


usuario  a  través  de  software 
fácilmente. 

8.  Gráficos 

Normal  480  puntos  por  línea. 
Doble  densidad  960. 

9.  Modos  de  impresión 
Modo  Commodore 
Standard,  reverse  (negativo), 
mayúsculas  y  minúsculas  y 
caracteres  gráficos. 

Modo  plus 

Standard,  doble  impresión, 
enfatizado,  itálica,  supra  y 
subíndices  mitad  altura. 

10.  Tamaños  de  impresión 
Modo  Commodore 

a)  Normal 

b)  Expandido 

c)  Expandido  doble 

d)  Expandido  triple 

e)  Expandido  cuádruple. 
Modo  plus 

a)  Normal  (10  cpi),  2,1  mm 
(a)x2,55  mm(h). 

b)  Normal  expandido  (5  cpi) 

c)  Comprimido  (17  cpi) 

d)  Comprimido-expandido 
(8,5  cpi). 

1 1 .  Test  escritura 

Manteniendo  apretado  LF 
(salto  de  línea)  cuando  se 
acciona  el  interruptor  de 
puesta  en  marcha  ON. 

12.  Subrayado  continuo. 

13.  Tabulador 

Existen  32  posiciones  de 
tabulación  por  línea. 


14.  Longitud  de  formato 

El  standard  de  66  líneas,  con 
espaciado  de  líneas  y 
longitud  del  formato 
programable. 

VFU  eléctrico. 

15.  Tamaño  buffer 

1  línea  standard. 

16.  Diagnóstico  de  detección 
de  errores  en  modo 
Commodore. 

17.  Posicionador  de  papel 
continuo 

Desplazable  parte  anterior  o 
posterior. 

18.  Interface 

Directo  a  Commodore  salida 
RS232  a  través  de  conector 
DIN  (el  cable  se  suministra 
con  la  impresora). 

19.  Grosor  papel 

Máximo  2  copias,  40  g/m2 
peso  continuo,  sensor  papel. 

20.  Operación  con 
interruptores 
De  fácil  acceso. 

21 .  Caracteres  por  linea 
Normal:  80 

Normal  expandido:  40 
Comprimido:  132 
Comprimido  expandido:  66 

22.  Cinta  impresora 
Autorretintada,  mediante 
tampón  interno,  cartucho 
compacto  de  cinta  negra 
fácilmente  reemplazable  y 


23.  Tamaño 

115  (h)  x  275  (f)  x  405  (a). 

24.  Tensión  alimentación 
220  v/  50  Hz. 

25.  Entrada  de  papel 
Frontal-horizontal. 

26.  Retroceso 
Por  software. 

27.  Instrucciones  de 
formateado  de  tablas 
alfanuméricas 

28.  Elevadores  inferiores 
standard 

(para  ubicación  del  papel 
continuo  debajo  de  la 
impresora). 


30.  Indicadores: 

•  Conexión  general 

•  Fin  de  papel 

31.  Interruptores 

ON/OFF,  On  line  (SEL),  salto 
de  página  (FF),  salto  de  línea 
(LF). 

32.  Compatible  con  la  mayor 
parte  de  software  existente 

(incluso  Commodore). 


DAüAmon  3iT=mn 

•  PERIFERICOS  ORDENADORES 

•  IMPRESORAS  Y  MONITORES 

•  CONEXIONES  Y  ACCESORIOS 


¡  ESPECIFICACIONES  PUEDEN  I 


I  CAMBIADAS  SIN  PREVIO  / 


ARA  CON  EL  USUARIO 


Si  has  elegido  dejar  de  fumar, 
FUMOSTOP  puede  serle  útil.  Fumar 
no  sólo  no  te  reporta  nada  sino  que 
además  como  tú  bien  sabes,  cuesta  caro 
en  tiempo,  dinero  y  calidad  de  vida. 
FUMOSTOP  puede  poner  los  medios 
para  que  cortes  con  el  hábito  de  fumar 
de  una  vez  por  todas,  fácil  y  agradable¬ 
mente.  Con  tu  Commmodore-64,  una 
unidad  de  discos,  el  disco  con  el  pro¬ 
grama  y  una  “manzana”  puedes  lograrlo. 
El  programa,  que  está  diseñado  por  un 
equipo  experto  de  sicólogos  con  aseso- 
ramiento  médico,  te  irá  marcando  obje¬ 


tivos  (de  20  cigarrillos  pasa  a  16,  p.e.)  y 
al  final  te  darás  cuenta  de  que  has  ido 
dejando  de  fumar  siguiendo  las  pautas 
de  autocontrol.  No  pienses  que  es  cues¬ 
tión  de  un  esfuerzo  adicional  y  de 
voluntad,  y  que  te  va  a  ser  difícil  conse¬ 
guirlo.  El  programa  te  ayuda  en  todo 
momento  con  alternativas  y  pequeños 
trucos:  una  dieta  adecuada  para  contro¬ 
lar  el  peso,  respiración  abdominal  y  dia- 
fragmática,  ingestión  de  agua  en  abun¬ 
dancia  para  diluir  la  nicotina,  infusiones, 
zumos  de  naranja,  etc. 

Prueba  FUMOSTOP,  el  primer  pro¬ 
grama  español  para  dejar  de  fumar. 


>  EL  MANUAL  ES 
FUNDAMENTAL¬ 
MENTE  UN 
COMPLEMENTO 
DEL  PROGRAMA  E 
INFORMA  AL 
USUARIO  SOBRE 
LA  COMPOSICION 
DEL  TABACO,  SUS 
EFECTOS 
PATOLOGICOS 
SOBRE  LOS 
DIVERSOS 
APARATOS,  ETC. 

DE  UNA  FORMA 
OBJETIVA. 


>  FUMOSTOP,  EL 
PRIMER 
PROGRAMA 
ESPAÑOL  PARA 
DEJAR  DE  FUMAR. 


>  SI  QUIERE  DEJAR 
DE  FUMAR, 
FUMOSTOP  LE 
PUEDE  AYUDAR. 


LISTADO  8.  Cargador  para  Sback  y  Smed. 
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ábe  analog 

Santa  Cruz  de  Marcenado  31  Tfnos:  (91)  248  82  13  -  242  50  59 

[Despachos  3.°  1 3,  3.°  1 4  y  4.°  20]  Telex:  44561  BABCE 
28015  MADRID 


mSLfiT 

por  l.SOO  pts. 
en  la  compra  de  un 
articulo  de  ABC  Soft 
señalado  con 

☆☆☆☆ 


ms 

por  75.000  pts. 
en  la  compra  de  un 
articulo  de  ABC  Soft 
señalado  con 

☆☆☆☆☆ 


por  200  pts. 
en  la  compra  de  dos 

I  artículos  cualquiera  I 

de  ABC  Soft  del 
L  boletín  de  estrellas  J 


ALGUNOS  EJEMPLOS 


ZX  SPECTRUM 

TRANS  EUROPE  RALLYE . 1 .495 

NIGHT  GUNNER . 1.695 

MAPSNATCH . 1.800 

DICTATOR .  795 

ZIG  ZAG .  795 

KOKOTÜNI  WILF . 1 .495 

FALL  GUY . 1.695 

DUKES  OF  HAZZARD . 1.795 

COMBAT  LYNX . 2.495 

BOOTY .  795 

STONKERS .  795 

ALCHEMIST .  795 

COSMIC  CRUISER .  795 

B.C.  BILL .  795 

MISSION  1 . 2.100 

AJEDREZ  EL  TURCO . 2.500 

AIRLINER .  1.695 

HUNTER  KILLER . 1.995 

FULL  THROTTLE . 1.695 

BRAXX  BLUF . 1 .695 

TORNADO  LOW  LEVEL . 1.595 

MALETIN . 4.995 


COMMODORE  64 

KONG . 2.795 

KONG  (DISCO) . 3.095 

SKRAMBLE . 2.795 

SKRAMBLE  (DISCO) . 3.095 

SPACE  PILOT . 2.795 

SPACE  PILOT  (DISCO) . 3.095 

BATTLE  THROUGH  TIME . 2.395 


P.  C.  FUZZ . 2.395 

ZAGA  MISSION . 2.395 

FIGHTER  PILOT  (DISC.) . 4.100 

MAZIACS .  795 

COMBAT  LYNX . 2.495 

SHADES . 2.495 

KOKOTONI  WILF . 1.695 

BOOTY .  795 

COSMIC  CRUISER .  795 

MISSILE  COMAND . 2.495 

MISSILE  COMAND  (DISCO)  .  ..3.095 

WHERE'S  MY  SONES . 2.295 

TALES  OF  ARABIAN . 2.295 

GUANGO . 2.295 

BIG  BEN . 2.295 

FRONT  UNE . 2.295 

BIG  TOP  BARNEY . 2.295 

AIRLINER .  795 

TEATRO  EUROPA . 3.100 

BATALLA  DE  MIDWAY . 3.100 

PEGASIS  (DISCO) . 4.100 

AZTEC  CHALLENGE . 2.900 

AZTEC  CHALLENGE  (DISCO).. 4.100 

MAGIC  STONE . 1.995 

TIME  TRAVELLER . 1.995 

TALLADEGA . 2.900 

SUPER  HUEY . 2.900 

OTHELLO . 2.900 

AJEDREZ  (DISCO) . 4.100 

BOZO'S  NIGHT  OUT . 2.095 

BOZO  S  NIGHT  (DISCO) . 3.095 

POSTER  PASTER . 2.095 


★  ★  ★  COMMODORE  1 6  Y  PLUS  4 

****  3D  TIME  TREEK . 1.895  ★★ 

*  MINIPEDES . 1.895  ★★ 


AMSTRAD 

STOMP . 1 

CHOPPED  SQUAD . 1 

HEROES  OF  KARN . 1 

’  JEWELS  OF  BABYLON . 1 

MESSAGE  FR.  ANDROMEDA  .  1 

FOREST  AT  WORLD  END . 1 

HUNTER  KILLER . 1 


★  *  *  VIC  20 

★  ★★  MKVUPEDES . 1.895  ★ 

★  ★★  WACKY  WAITERS .  995  ★★ 

★  ★★  CATCHA  SNATCHA .  995  ★★ 

★  ★★  BEWITCHED .  995  ★★ 

★  ★★★  AMOK .  995  ★★ 

.  .  MAGNIFICENT  SEVEN .  995  ★★ 

**  COUNTRY  GARDEN .  995  ★★ 


MSX 

TRANS  EUROPE  RALLYE . 1.495 


Don . 

domiciliado  en . 

..  ~ .  .  . Tfno. 


Solicita  a  abe  soft  el  envío,  sin  compromiso  alguno  del  “BOLETIN  ESTRELLAS”  de  fecha  1 5  Nov.  85. 
Fecha . 


LIBROS  DATA  BECKER 

Editados  por 


FERPE  -  fllOPET  /. n. 


TUSET,  8  ENTLO.  2.°  -  218  02  93 
08006  BARCELONA 


Hardware 


17.600  ptas. 

Le  da  marcha 
al  Floppy  ve.  1541 

¡La  velocidad  de  transmisión 
de  datos  aumenta  25  veces! 


PROFIMAT  S.8S0  ptas. 

Quien  quiere  acceder  a  la  vida  interior  del  computador,  necesita 
disponer  de  herramientas  especiales.  Aquí  es  donde  PROFIMAT 
entra  en  acción,  ofreciendo  un  confortable  monitor  de  código 
máquina  así  como  un  macroensamblador. 

M  ADA  —  curso  de  entrenamiento  11.700  ptas. 

Este  lenguaje  de  programación  del  futuro,  el  cual  al  igual  que 
COBOL  fue  encargado  por  el  pentágono,  ahora  puede  ser 
aprendido  por  el  usuario  del  C-64,  mediante  el  curso  de 
entrenamiento  de  DATA  BECKER.  El  curso  de  entrenamiento  de 
ADA  además  contiene  un  compilador  que  ofrece  un  exhaustivo 
SUBSET,  y  los  elementos  principales  de  este  lenguaje. 


0TEXTOMAT  5.850  ptas. 

Todo  el  programa  se  estructura  en  forma  de  menú,  para  mayor 
facilidad  de  manejo.  Puede  seleccionarse  a  voluntad  el  juego  de 
caracteres  americano,  o  el  juego  de  caracteres  castellano.  ¡Esta 
adaptación  también  vale  para  la  impresora,  y  posibilita  una 
adaptación  individual  a  cualquier  problema! 

HELECTROMAT  4.100  ptas. 

Con  ELECTROMAT,  la  creación  de  esquemas  de  circuitos 
electrónicos  se  convierte  en  una  diversión  -  todos  los  esquemas 
pueden  editarse  directamente  en  pantalla. 


H  PLATINE  64  ■  LA  LLAVE  PARA  EL  MERCADO  ELECTRONICO 

Hasta  ahora  los  sistemas  de  desarrollo  de  placas  de  circuito  impreso*  (platinas)  sólo  eran  accesibles  con  mucho  dinero  y 
a  base  de  computadoras  caras.  De  allí  que  había  muchos,  que  necesitaban  un  sistema  de  este  tipo,  pero  pocos  que 
podían  costeárselo.  Esto  ha  llegado  a  su  fin.  Compare  los  datos,  PLATINE  64  a  este  precio  y  en  esta  categoría  de 
ordenadores,  es  una  auténtica  sensación  a  nivel  mundial. 

¿QUIEN  NECESITA  PLATINE  64? 

•  Técnicos  de  desarrollo  electrónico  y  pequeñas  empresas  que  hasta  ahora  no  podían  costearse  un  sistema  de 
desarrollo  de  placas.  Placas  de  circuitos  impresos. 

•  Departamentos  especializados  de  empresas  mayores  que  buscan  más  independencia,  hallándola  en  un  sistema 
rentable  y  autónomo. 

•  Aficionados  serios  a  la  electrónica.  Por  sus  características  excepcionales  de  rendimiento. 

•  Acceso  a  un  grupo  de  clientes  completamente  nuevo  e  interesante. 

PLATINE  64  se  suministra  a  partir  de  comienzos  de  octubre.  El  precio  estipulado  es  de  30.000  pts. 


Ordenador  Personal 


DISFRUTELO  EN  FAMILIA 


El  ordenador  personal  para  toda  la  familia.  Con  80  K  para  estar  a  la  altura  de  todos  los  gustos  y  necesidades.  Jugar,  archivar, 
aprender,  programar:  y  con  capacidad  para  crecer  con  la  aplicación  de  periféricos. 

CARACTERISTICAS  MAS  IMPORTANTES  DEL  V-20 


Canon 


m 

SISTEMA  M: 


•  Sistema  standard  MSX  que  hace  compatibles  hardware  y  software  de  todos  los  productos  que  tienen  este  sistema  en  el  mercado. 

•  Pueden  acoplar  los  siguientes  periféricos  de  CANON: 


—  Mouse  para  hacer  todo  tipo  de  gráficos  a 
-  Floppy  de  720  K,  que  incluye  diskette  MSX-  co'or- 

DOS  para  aprovechar  toda  la  capacidad  del  —  Joy  sticks. 

ordenador  y  además  incluimos  un  segundo  —  Caja  de  5  diskettes  vírgenes, 

diskette  con  tres  programas  de  aplicaciones  —  Variedad  de  programas  en  cinta  con  juegos, 

profesionales. 

•  Y  además  dos  manuales  en  castellano:  guía  del  usuario  y  completo  manual  de  BASIC. 


» 


SIEMPRE  LOS  PRIMEROS 
EN  TENER  LO  ULTIMO 


P.°  de  la  Castellana,  268,  3.°  C.  28046-MADRID. 

Tel.:  (91)  733  25  00 


BLACKWYCH 


La  última  novedad  de  ULTIMATE  para 
Commodore.  Vuelven  las  aventuras  del 
héroe  de  Staff  of  Karnath  y  Entombed,  Sir 
Arthur  Pendragon,  en  un  juego  todavía,  si 
cabe,  más  apasionante. 


P.V.P.:  2.1 00  ptas. 

Precio  Socios  C.  de  Soft:  1 .890  ptas. 


BEACH  HEAD  II 

Ya  está  aquí  la  esperada  continuación  de 
Beach  Head,  el  juego  más  vendido  para 
Commodore.  Los  gráficos  y  el  nuevo 
simulador  de  voz  que  se  incluyen  en  el 
Beach  Head  II  te  harán  sentirte  en  pleno 
centro  de  la  batalla  por  la  conquista  de  la 
fortaleza  enemiga. 

P.V.P.:  2.900  ptas. 

Precio  Socios  C.  de  Soft:  2.600  ptas. 


SUPER  ZAXXON 

La  continuación  de  Zaxxon  supera  a  la 
primera  no  solamente  en  gráficos  y 
realismo,  sino  que  la  imaginación  con  que 
está  desarrollado  el  juego  alcanza  niveles 
sencillamente  extraordinarios. 


P.V.P.:  2.600  ptas. 

Precio  Socios  C.  de  Soft:  2.340  ptas. 


¡¡¡...Y  LOS  TRES  PROGRAMAS  POR  SOLO  6.300  PTAS.!!! 


¡HAZTE  HOY  MISMO  SOCIO  DEL  CIRCULO  DE  SOFT!  Además  de  poder  adquirir  tus  pro- 
.  gramas  al  mejor  precio,  recibirás  información  de  forma  periódica  y  gratuita,  del  mejor  software  que  apa- 

'  rezca  en  el  mercado. 

!  ¿QUE  HAY  QUE  HACER  PARA  SER  SOCIO  DEL  CIRCULO  DE  SOFT?  Asi  de  fácil  envía 

nos  por  correo  tu  nombre,  dirección  y  modelo  de  ordenador,  o  bien,  pide  por  teléfono  o  por  correo  tu  pri¬ 
mer  programa.  ¡Y  entrarás  a  formar  parte  del  CIRCULO  DE  SOFT  de  forma  inmediata! 


□  Si  quiero  ser  SOCIO  desde  hoy  mismo  del  CIRCULO  DE  SOFT  y  recibir  periódicamente  información  de  novedades  de  software,  así  como  beneficiarme  desde  hoy  mismo  de  los  pre¬ 
cios  reducidos  reseivados  a  los  SOCIOS  y  de  sus  Ofertas  Especiales.  El  ser  SOCIO  no  me  obliga  a  compra  alguna. 

Si  prefieres  formalizar  tu  compra  por  teléfono  puedes  hacerlo  llamando  al  (91)  733  25  00.  ¡¡NO  SE  COBRAN  LOS  GASTOS  DE  ENVIO  POR  CORREO!! 

T|TULq _  P.V.P.  _ ORDENADOR _ 


□  Conrrarreembolso  □  Giro  Posral 

Nombre  - - 

Domicilio - 

Localidad - 


□  Talón  adjunto  a  Microamigo.  S.A.  □  Tarjeta  VISA  n.“_ 

_ Apellidos - 


C.P _ 


_ Teléfono 

Provincia _ 


Fecha  caducidad  — 

_ Edad 


EL  VIC  DESCONOCIDO 

Primero  sólo  os  quiero 
decir  que  ésta  es  la  tercera 
carta  que  os  escribo,  y 
espero  que  en  ésta  deis 
síntomas  de  al  menos 
haberla  leído.  Mi  problema  es  el  siguiente: 
tengo  un  VIC-20  hace  cosa  de  un  año,  cuan¬ 
do  me  lo  compré,  había  muchos  juegos  y 
cosas  para  el  ordenador.  Ahora,  un  año  más 
tarde,  parece  que  el  VIC-20  ya  ha  pasado  a  la 
historia.  Se  me  hace  imposible  encontrar  un 
programa  decente  para  él,  y  si  lo  encuentro 
es  un  juego  (lo  típico).  Por  eso  os  pregunto: 

a)  ¿Dónde  puedo  encontrar  algún  catá¬ 
logo  de  programas  y  periféricos  para  el  Vic? 

b )  ¿Es  que  el  Vic  ya  no  existe,  tal  vez  ya  no 
lo  fabrican? 

Por  favor,  si  alguien  manda  algún  pro¬ 
grama,  que  no  sea  de  juegos,  para  el  Vic,  lo 
podríais  publicar. 

David  Felipe  Villa 
C./  Can  Valero,  18 
Polígono  de  la  Paz 
07011  Palma  de  Mallorca 

Si  no  has  recibido  respuesta  a  las  cartas 
anteriores  es  porque  lo  que  preguntabas  ya 
había  sido  contestado  en  algún  otro  número  de 
la  revista.  Por  lo  general,  las  cartas  que  nos 
enviáis  sólo  las  contestamos  a  través  de  la 
revista,  y  no  a  nivel  particular. 

a)  Que  nosotros  sepamos,  no  existe  ningún 
catálogo  de  programas  para  el  Vic,  aunque  hay 
algunos  para  el  64.  Prueba  a  escribir  o  llamar 
por  teléfono  a  las  casas  comerciales  que  se 
anuncian  en  la  revista  que  son  las  que  podrían 
conseguirte  esos  productos.  Un  catálogo  de 
periféricos  lo  puedes  conseguir  a  través  de 
Microelectrónica  y  Control,  que  son  los  que 
distribuyen  Commodore  en  España. 

b)  Efectivamente,  el  Vic  se  ha  dejado  de 
fabricar  hace  algún  tiempo,  por  lo  que  no  es 
extraño  que  cada  vez  escaseen  más  los  produc¬ 
tos  para  este  ordenador. 

MINI-CALC  PARA  CINTA 

En  el  número  18  de 
vuestra  revista  leí  el  artí¬ 
culo  referente  a  una  hoja 
electrónica  para  el  Vic-20, 
pero  me  di  cuenta  de  que 
sólo  funcionaba  con  unidad  de  discos,  y  yo 
no  tengo.  Lo  que  os  pido  es  lo  siguiente:  que 
me  digáis  la  forma  de  adaptar  dicho  pro¬ 
grama  para  que  pueda  funcionar  con  el 
datassette.  En  el  caso  de  que  no  se  pueda 
hacer  con  el  datassette  el  correspondiente 
tipo  de  ficheros  les  ruego  me  digan  la  forma 
de  simularlos. 

Otra  pregunta:  ¿Es  posible  que  el  mencio¬ 
nado  programa  funcione  con  el  programa 
de  relocalización  que  viene  en  el  número  16? 
(poseo  ampliación  de  16  K). 

Ernesto  Sarralde  López 

C./  Pintor  Aurelio  Vera-Fajardo,  18-3.s 

01008  Vitoria-Gasteiz  (Alava) 

Las  modificaciones  que  hay  que  hacer  son 
las  siguientes: 

16000  PRINT’\CLR\  NOMBRE 
FICHERO":  INPUT 
F$:  OPEN  2,1,1,  F$ 

16010  quitar  sólo  el  CLOSE  15 
17000  quitar  todo  a  partir  del  OPEN 
17005  OPEN  2,1,0, F$:  FOR..  el  resto  igual 
17010  quitar  sólo  el  CLOSE  15 
Ahora  bien...  Todas  las  rutinas  que  utiliza 
este  programa  se  alojan  en  el  Buffet  del  cas¬ 
sette,  de  modo  que  cada  vez  que  leas  o  grabes  I 


un  fichero  te  vas  a  quedar  sin  rutinas,  por  lo 
que  hay  que  recolocarlas  después  de  cada  lec¬ 
tura.  El  problema  es  que  las  líneas  data  que 
contienen  estas  rutinas  se  “borran"  nada  más 
leídas. 

Una  solución  sería: 

Quitar  el  GOTO  800  de  la  primera  línea 
(para  que  no  se  borren  las  líneas  data). 

Añadir  RESTORE  en  la  línea  1010  (en  vez 
del  REM). 

En  la  línea  1 7010  hacer  GOSUB 1010  antes 
de  RETURN. 

Si  te  fijas  un  poco,  verás  que  el  programa 
relocalizador  es  el  mismo  que  el  listado 
pequeño  que  aparece  en  Mini-Calc. 


EL  RESET  NO  FUNCIONA 

En  el  número  3  de  su 
revista  describen  un  conec- 
tor  para  hacer  Reset  sin 
borrar  los  programas  de 
la  memoria  (junto  con  el 

comando  Oíd). 

Lo  he  construido  para  mi  Commodore  64 
y  a  pesar  de  estar  exacto  no  he  podido  conse¬ 
guir  que  funcione;  ni  en  el  mío  ni  en  otro  que 
he  probado. 

El  programa  “comando  oíd”  si  funciona, 
pero  les  repito  que  el  conector  no.  ¿Hay 
algún  error  en  la  revista? 

Fernando  Brid  Arias 
C./  La  texeira,  71  -  3»  D 
Avilés  (Asturias) 

No  hay  ningún  error  en  la  revista,  aunque  ya 
nos  hemos  encontrado  con  varios  C-64  a  los 
que  les  pasa  lo  mismo  que  al  tuyo.  Lo  más 
seguro  es  que  en  los  últimos  modelos  de  C-64 
el  Resel  del  port  de  serie  esté  desconectado  por 
alguna  razón  (probablemente  para  evitar  que 
un  reset  en  la  unidad  de  discos  o  en  la  impre¬ 
sora  cause  daño  al  ordenador).  De  cualquier 
manera,  puedes  construirte  uno  conectando  el 
pulsador  entre  las  patillas  1  y  3  del  port  del 
usuario  que  corresponden,  según  se  mira  el 
ordenador  por  detrás,  a  la  primera  y  tercera 
conexión  contando  desde  arriba  a  la  izquierda 
— mira  el  gráfico  que  aparece  en  el  manual 
para  asegurarte. 

ANTI-RESET 

Estimados  revisteros:  os 
quería  hacer  algunas  pre¬ 
guntas  sobre  unos  cuantos 

— ¿Cuál  es  la  función 
del  Input  de  audio  en  el  conector  de  audio¬ 
video  y  cómo  y  de  qué  forma  se  puede  usar? 

— ¿Por  qué  motivo  los  comandos  de  alta  re¬ 
solución  del  Simon’s  Basic  no  permiten 
trabajar  con  Sprites  en  este  modo?  Es  decir, 
que  al  realizar  un  “Hires  0,1”,  por  ejemplo, 
al  intentar  representar  en  pantalla  un  sprite, 
por  medio  de  las  palabras  clave  que  añade  el 
cartucho,  o  bien  simplemente  con  los  opor¬ 
tunos  Pokes,  no  aparece  nada  y  en  el  mejor 
de  los  casos  unas  barras  horizontales  donde 
debería  estar  el  sprite.  El  problema  no  es 
debido  a  que  el  Sprite  sea  del  mismo  color 
que  la  pantalla  ni  a  que  haya  confundido  el 
puntero  de  inicio  de  los  datos  del  Sprite,  pues 
lo  tengo  comprobado.  ¿Podríais  darme 
alguna  solución  que  no  sea  demasiado  tonta, 
como  tirar  el  cartucho  a  la  basura,  para  este 
problema? 

¿Cuál  es  la  forma  de  intervenir  el  inicio  del 
Basic  al  hacer  un  Reset  o  un  Stop/Restore, 
para  que  vaya  a  la  posición  que  tú  le  fijes? 

— La  numeración  de  los  contactos  del 
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conector  para  cartuchos  es  diferente  si  lo 
miramos  en  la  guía  del  usuario  o  en  la  guía 
de  referencia  del  programador.  ¿Cuál  es  la 
correcta? 

Luis  Tudela  Casano 
Passatge  Tossa  20,  entlo. 

Igualada  (08012  Barcelona) 

— Lamentablemente,  no  tenemos  informa¬ 
ción  al  respecto.  Ni  la  guía  ni  el  manual  dicen 
nada.  En  cuanto  sepamos  algo  os  lo  diremos. 

— El  Manual  Original  del  Simon’s  Basic 
dice  que  los  sprites  pueden  utilizarse  tanto  en 
las  pantallas  normales  como  en  las  de  alta- 
resolución,  de  modo  que  léete  bien  el  manual 
para  enterarte.  No  puedes  utilizar  como  ban¬ 
cos  de  datos  los  inferiores  al  32. 

— En  la  dirección  $8000  que  es  donde  se  al¬ 
macenan  los  cartuchos  puedes  hacer  variacio¬ 
nes  para  que  el  ordenador  salte  a  donde  tú  le 
digas  cuando  hagas  Stop/Restore  o  Reset. 
Tienes  que  ajustar  los  siguientes  valores: 

$8000  y  $8001  (32768  y  32769)  dirección  de 
Reset. 

$8002  y  $8003  (32770  y  32771 )  dirección  de 
NMI  (Re store). 

$8004  a  $8008:  datos  $C3  $C2  $CD  $38 
$30  (es  decir  195,  194,  205,  56,  48  = 
“CBM80",  el  distintivo  de  cartucho,  que  es  lo 
que  primero  “mira”  el  ordenador  al  hacer 
Reset). 

Con  que  copies  los  distintivos  de  cartucho  y 
coloques  tus  propias  direcciones  — en  forma 
byte  bajo/alto —  tendrás  tu  ORDENADOR 
PROTEGIDO  CONTRA  RESETS  Y  STOP/ 
RESTORES. 

MATEMATICAS  SUPERIORES 

Como  lector  de  su  revis¬ 
ta  y  como  aspirante  a 
poseedor  de  un  “Com¬ 
modore  128”  (cuando 
Dios  quiera  que  lo  repar¬ 
tan  a  los  comercios)  me  dirijo  a  ustedes  en 
demanda  de  información  acerca  de  dónde 
hallar  libros  y  programas  grabados  o  no 
sobre  Matemáticas  superiores,  para  Com¬ 
modore  (64  ó  128  pues  al  parecer  son  compa¬ 
tibles  completamente)  ya  sea  disponibles  en 
España  o  en  el  extranjero. 

Quisiera  remarcar  que  mi  interés  no  está 
en  los  programas  que  frecuentemente  vemos 
en  las  revistas;  esos  que  nos  resuelven  un  sis¬ 
tema  de  cuatro  ecuaciones,  nos  dan  una  inte¬ 
gral  por  el  método  de  Newton,  etc...,  todos 
ellos  muy  respetables,  pero  ya  no  son  el 
objeto  de  mis  búsquedas. 

Soy  un  matemático  “amateur”  de  60  años 
que  desea  utilizar  el  ordenador  en  sus  inves¬ 
tigaciones  a  fin  de  que  éste  me  proporcione 
el  tiempo  que  por  mis  años  me  va  faltando,  a 
ver  si  consigo  hacer  algo  en  este  mundo  antes 
de  que  el  Gran  Programador  haga  Break  & 
New  en  el  programa  de  mi  vida. 

Espero  me  comprendan  y  si  tienen  infor¬ 
mación  de  posibles  fuentes  de  programas  de 
matemática  superior  tanto  en  castellano 
como  en  inglés,  me  lo  comunicaran. 


—  Statisticals  Programs  m  Basic.  (Sch 
wartz),  208  páginas,  5.290  pesetas. 

—  Spatial  Data  Analysis  by  Example. 
Volume  I;  Point  Pattern  and  Quantitative 
Data.  (Upton),  410  páginas,  10.000  pesetas. 

Los  puedes  encontrar  en: 

RA-MA 

C./  Chinquirá,  28  -  local  4  (Cocuy) 

28033  Madrid  -  Teléfono  (93)  764  50  95. 

Seguramente  si  les  pides  un  catálogo  te  lo 
mandarán  encantados  y  podrás  ver  los  libros 
que  te  interesan,  pues  tienen  muchos  más  de 
los  que  aquí  hemos  citado. 


CAMBIO  EN  LOS  LISTADOS 

— - —j  El  motivo  de  esta  carta 

es  para  preguntar  por  el 
cambio  de  la  rutina  de 
/  \  impresión  que  se  ha  hecho 

c -  en  el  listador  que  tenéis 

para  que  aparezca  el  número  de  caracteres 
gráficos  que  se  han  pulsado  por  ejemplo 


tuido  el  [SPC]  cuando  va  sólo  para  que  se 
puedan  entender  mejor  los  textos,  y  además 
hemos  conseguido  que  los  listados  salgan  a  40 
columnas,  sin  “picos”  como  pasaba  antes. 

La  teda  “ESC”  que  llevan  otros  ordenado¬ 
res  no  sirve  para  salir  del  programa  —para  eso 
está  la  tecla  S  T  OP — ,  sino  para  añadir  nuevos 
comandos,  salir  de  los  inputs,  del  modo  comi¬ 
llas,  etc.  Lo  más  parecido  en  los  Commodore 
es  la  pulsación  de  Shift-Return. 

PROBLEMAS  CON  LAS  CINTAS 

r— - ■ — —  Recientemente  adquirí 

un  Commodore-64  y  su 
Datassette  C2N  y  como 
/  \  soy  un  novato  ya  tengo  un 

*- -  problema  que  no  logro 

solucionar.  Según  pone  en  el  manual  (en  in¬ 
glés)  para  cargar  un  programa  desde  el 
datassette  hay  que  teclear. 

LOAD“nombre  del  programa”  y  pulsar 
RETURN,  hasta  que  aparezca  el  nombre  del 


n,  pero  no  hay  manera,  no  encuentra 
nada.  ¿Podrían  decirme  qué  debo  hacer  y 
para  qué  sirve  la  tecla  “Commodore”  aparte 
de  cargar  el  programa? 

Domingo  González 
Puerto  de  la  Cruz  (Tenerife) 

Con  tan  pocos  datos  es  difícil  averiguar  qué 
es  lo  que  le  ocurre  a  tu  ordenador.  Lo  primero 
que  necesitas  es  haber  grabado  un  programa 
con  SA  VE  en  la  cinta,  que  no  esté  exactamente 
al  principio,  sino  un  poco  avanzada  para  evitar 
el  plástico  protector.  Si  no  consigues  leer  ese 
programa  es  seguramente  debido  a  algún  fallo 
en  la  conexión,  el  cassette  o  el  ordenador.  Llé¬ 
valo  al  sitio  donde  lo  compraste  para  que  te  lo 
prueben  allí  o  te  lo  cambien  si  está  estropeado 
porque  es  casi  imposible  que  un  cassette  no 
pueda  reconocer  la  misma  cinta  que  él  ha 

La  función  de  la  tecla  “Commodore”  es 
poder  imprimir  los  gráficos  predefinidos  que 
aparecen  en  las  teclas.  También  sirve  para 
pasar  a  minúsculas  si  se  pulsa  junto  con  Shift. 


LO  ULTIMO  PARA  COMMODORE  64 

THE  FINAL  CARTRIDGE® 


I  CARACTERISTICAS: 


•INTERFACE  CENTRONICS.  Compati- 
i  impresoras  Centronics  y 

ticos  y  códigos  de  Commodore. 

Posibilidad  de  volcado  de  pantalla  en 
alta  y  baja  resolución.  Imprime  en  al¬ 
ta  y  baja  resolución  y  multicolor  a  to¬ 
da  página,  incluso  juegos  y  progra¬ 
mas  gráficos  (Doodle,  Koala  Pad, 
etc.).  Busca  automáticamente  la  di¬ 
rección  de  memoria  del  gráfico. 

4.0.  Catalog, 


•TECLAS  DE  FUNCION  PREPROGRA¬ 
MADAS.  Run,  Load,  Save,  Catalog, 
Comandos  de  disco. 


•COMANDOS  EXTRAS  DE  EDICION. 
•MONITOR  DE  CODIGO  MAQUINA. 
•BOTON  DE  RESET. 

•ETC. 
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PRECIO  ESPECIAL 
DE  LANZAMIENTO 


13.900,- 


ENVIOS 

CONTRAREEMBOLSO 
SIN  GASTOS 


IMPORTADOR  EXCLUSIVO  PARA  ESPAÑA: 


E 


IMEX 

ELECTRONICA 


balance 


mxni 


PROCESADOR  DE  TEXTOS  1 

¡Ideal  para  escribir  cartas  e  informes!  1 

Características:  Visualización  continua  del 
tiempo  •  Contador  de  palabras  (indicando 
las  palabras  por  minuto)  •  Texto  normal  o 
doble,  en  pantalla  o  impresora. 

HOJA  DE  CALCULO 

¡Utiliza  tu  micro  para  controlar  tus  cuentas! 
Características:  Cifras  visualizadas  en  filas 
y  columnas  •  Actualización  permanente  • 
Actualización  reflejada  instantáneamente 
en  toda  la  hoja  •  Grabación  de  los 
resultados  para  futuras  modificaciones. 

GRAFICOS 

¡Convierte  esos  números  en  maravillosos 
gráficos!  Características:  Gráficos  de  barras 
en  tres  dimensiones  •  Gráficos  de  pastel  • 
Histogramas. 

BASE  DE  DATOS 

¡Igual  que  los  archivos  de  la  oficina! 
Características:  Cargar  ficheros  con  solo 
pulsar  una  tecla  •  Clasificación  •  * 

Modificación  •  Listados  •  Búsqueda. 

*  En  Castellano  .  /\/\yV 

♦Servimos en  \^TSn'  [Si 

48  Horas  NÜ  rT*/ 


BALANCE 


|  Envíenos  a  MICRO  BYTE 

-i  P.°  Castellana,  179,  l.° -  28046  MADRID 


''Versión  disco  AMSTRAD  P.V.P.  3.900  pías,  i  Dirección 


Población 


Teléfono 


I!  Deseo  que  me  envíen Q  ejemplar/es 
|  del  programa  MINI  OFFICE  ¡ 

I  PARA  EL  MICROORDENADOR 
,  SEÑALADO 

[  □  AMSTRAD  □  COMMODORE  □  SPECTRUM 
I  □  AMSTRAD  VERSION  DISCO 
I  Sin  gastos  de  envío 


INCLUYO  TALON  NOMINATIVO  □ 

CONTRA-REEMBOLSO  □ 


Pedidos  por  teléfono 

91  -  442  54  33/44 


1  "  I IW2 

fgm 

I  hJ  llsWg» 

rmfimm 

WM 

CERTIFICADO 
DE  DESCUENTO 


2.785  Ptas. 


1.065  Ptas. 


PRECIO  SUSCRIPCION 
ANUAL  (11  NUMEROS) 


AHORRO  SOBRE 
LOS  1 1  EJEMPLARES 


•  LA  SUSCRIPCION  DE  REGALO  SERA  ENVIADA 
JUNTO  CON  UNA  TARJETA  DE  TU  PARTE. 


•  QUEDA  BIEN  ENTENDIDO  QUE  TU  SUSCRIPCION 
NO  SE  CONSIDERA  RENOVADA  HASTA  EL  VEN¬ 
CIMIENTO  DE  LA  ANTERIOR. 


•  RECUERDA  QUE  SI  HACES  TU  SUSCRIPCION 
MAS  OTRA  DE  REGALO,  TIENES  DOS  POSIBILI¬ 
DADES  DE  GANAR  UN  COMMODORE-1 28 


El  sorteo  se  efectuará 
ANTE  NOTARIO  el  viernes, 
13  de  diciembre  de  1985. 
Sólo  se  considerarán 
válidos  aquellos 
boletines 
recibidos 
hasta  las  12 
de  la  noche 
del  jueves,  1 2 
de  diciembre 
de  1985. 

(Caduca  a  los  3  meses) 


□  NUEVA  SUSCRIPCION 

NOMBRE 

DIRECCION 

POBLACION 


□ 


RENOVACION 

EDAD 


> 


C.P. 


PROVINCIA  TELEF. 

MODELO  ORDENADOR 

ENVIO  TALON  □  O  GIRO  POSTAL  □  POR  2.785  Ptas.  POR  EL  PRECIO 
UNA  SUSCRIPCION  NUEVA,  UNA  RENOVACION  O  UNA  SUSCRIPCION 
REGALO. 

ENVIO  TALON  □  O  GIRO  POSTAL  □  POR  5.575  Ptas.  POR  EL  PRECIO 
UNA  SUSCRIPCION  NUEVA  O  UNA  RENOVACION  +  UNA  SUSCRIPCION 
REGALO.  


DESEO  ENVIAR  UNA  SUSCRIPCION  DE  REGALO  A: 
NOMBRE  EDAD 

DIRECCION 

POBLACION  C.P. 

PROVINCIA  TELEF. 

(Enviar  a  la  dirección  del  dorso) 


SORTEO 

DE  8  EQUIPOS  C- 128 


•  Sorteamos  4  equipos  Commodore  128  entre 
TODOS  LOS  SUSCRIPTORES  que  se  acojan  a 
nuestra  oferta  especial. 

•  Sorteamos  4  equipos  Commodore  128  entre 
los  NUEVOS  SUSCRIPTORES  que  se  acojan  a 
nuestra  oferta  especial. 

•  Cada  boletín  de  suscripción,  renovación  de 
suscripción  o  suscripción  de  regalo,  entrará  en  el 
sorteo.  Es  decir  si  tú  renuevas  (incluso  por  ade¬ 
lantado)  tu  suscripción  tendrás  UNA  oportuni¬ 
dad  de  ganar  un  C-128;  si  haces  una  suscripción 
nueva  tendrás  UNA  oportunidad  en  el  sorteo;  si 
regalas  una  suscripción,  tu,  y  no  el  que  recibe  la 
suscripción  de  regalo,  tendrás  UNA  oportunidad 
de  salir  premiado.  Sin  embargo,  si  además  de 
renovar  tu  suscripción  o  de  hacer  una  suscripción 
nueva,  regalas  una  suscripción  a  otra  persona,  tú 
tendrás  DOS  oportunidades  de  ganar  un  Com¬ 
modore  128. 

•  El  precio  de  una  suscripción  nueva  o  una 
renovación  son  2.785  pesetas. 

•  El  precio  de  una  suscripción  nueva  o  una 
renovación  y  una  suscripción  de  regalo  son  5.570 
pesetas. 

CUALQUIERA  DE  ESTOS  COMMODORE 
128  PUEDE  SER  TUYO,  NO  DEJES  QUE 
DESAPAREZCA  ESTA  OPORTUNIDAD. 


Barquillo,  21,  3Q  Izda. 

Teléf.:  231  23  88/95 
28004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


/ 


La  MAGIA  son  trucos,  la  MAGIA  es 
divertida. 

La  MA  GIA  es  hacer  lo  que  nadie  se  ha 
atrevido  y  resulta  ser  la  fuente  más  com¬ 
pleta  de  información  para  la  informática 
práctica. 

La  MA  GIA  es  una  sección  mensual  llena 
de  consejos,  trucos,  de  esto  y  aquello  del 
mundo  del  software,  hardware  y  aplicacio¬ 
nes,  trucos  descubiertos  por  los  demás  que 
hacen  que  la  informática  sea  más  fácil,  más 
divertida  o  más  animada. 

MAGIA  habla  de  ideas  sencillas,  pro¬ 
gramas  de  una  sola  línea,  subrutinas  útiles, 
hechos  de  informática  poco  conocidos  y 
otras  cosas  de  interés. 

Los  trucos  de  magia  enviárnoslos  com¬ 
probados,  pues  hay  varios  incorrectos.  ¡Ah! 
y  no  nos  mandéis  trucos  repetidos...  ¡Listos! 


EFECTOS  ESPECIALES 

Este  programa  hace  que  la  pantalla  destellea  al  mismo  tiempo  que 
suenan  unos  pitidos: 

10  FOR  1=  15  TO  0  STEF'  -1:  POKE 
36877,150:  POKE  36878, R 
20  POKE  36879,  4:  FOR  1=1  TO  50 
:  NEXT:  POKE  36879,12:  FOR  T=  1 
TO  50:  NEXT 

30  NEXT:  G0T010:  REM  FIN 

Y  esta  línea  sirve  para  que  el  ordenador  guarde  la  mejor  pun¬ 
tuación  obtenida  en  un  juego: 

10  IF  SC  >  H I  THEN  HI  =  SC 


El  dibujo  de  cada  carácter  queda  contenido  en  las  líneas  data  y  se 
obtiene  poniendo  el  ordenador  en  “graphic  2”  (para  ver  lo  que  escri¬ 
bimos  a  la  vez)  y  haciendo  pokes  a  partir  de  la  posición  12288  de  la 
misma  forma  que  ha  aparecido  otras  veces  en  la  revista  refiriéndose  al 
V1C-20  o  al  C-64  (en  una  cuadrícula  de  8X8  se  pasa  al  valor  en  binario 
de  cada  fila  a  decimal).  Como  ejemplo  he  puesto  en  las  datas  el  dibujo 
de  una  “ñ”. 

El  modo  de  realizar  estos  mismos  caracteres  en  multicolor  lo 
ignoro,  ya  que  este  truco  lo  he  encontrado  hurgando  en  la  memoria 
del  ordenador  a  través  del  monitor  de  código  máquina  que  lleva 
incorporado. 

Os  animo  a  publicar  algún  artículo  sobre  este  y  otros  temas  rela¬ 
cionados  con  el  C-16  dado  que  en  el  mercado  no  es  posible  encontrar 
ni  siquiera  la  guía  de  referencia  (por  lo  menos  yo  no  la  he 
encontrado). 

Me  despido  esperando  que  el  número  de  colaboraciones  para  el 
C-16  sea  cada  vez  mayor. 

Francisco  Javier  Zapata 
C/  Fidel  Sera!  11.  4a  1. 

50014  Zaragoza 


SC  es  la  última  marca  obtenida  y  HI  la  mejor  marca  hasta  el 
lomento. 

Enrique  Maldonado  Rollizo 
C/Manuel  del  Valle,  16.  4a  Izq. 

28043  Madrid 


OMEGA  RACE  MAS  DIVERTIDO 


GHOSTBUSTERS  ADINERADOS 

Después  de  una  serie  de  partidas  el  Ghostbusters,  hemos  descu¬ 
bierto  una  serie  de  cuentas  nuevas  que  serán  del  interés  de  muchos 
ghostbusterianos. 

— Cuando  pregunte  por  el  nombre,  poned  NNN. 

— Cuando  pregunte  por  el  número  de  cuenta  cualquiera  de  éstas: 


Os  mando  un  truco  para  los  que  posean  el  VIC-20  con  el  cartucho 
Omega  Race.  Es  que  pulsando  Shift  y  F1  para  comenzar  las  partidas, 
el  ordenador  da  5  Naves  y  no  3  como  era  habitual. 

Esto  sirve  para  el  que  le  guste  hacer  grandes  récords. 

POR  FIN  GRAFICOS  PARA  EL  C-64 

Os  envió  un  truco  que  puede  ayudar  mucho  a  los  que  traten  de 
programar  juegos  en  el  C-16.  Se  trata  de  la  forma  de  crear  caracteres 
definidos  por  el  usuario.  Consiste  es  lo  siguiente: 

10  X  =  1  : numero  de  caracteres  a  crear 
20  FOR  L=  12288  TO  12288+  <  8  JK  X  >  --1 
30  READ  A:  POKE  L, A:  NEXT  L 
40  POKE  65298,240:  POKE  65299,240 
50  DATA  28,0,44,50,50,50,50,0 


61217001 

01240702 

27050502 

25221302 

24410304 

26661504 

26662204 

22206304 

06326704 

22243505 


$77.100 

$80100 

$85700 

$89500 

$105400 

$109600 

$119600 

$131200 

$138600 

$151200 


Nota:  Hemos  perdido  tu  dirección,  envíanosla  para  que  puedas  entrar 
en  el  sorteo. 


Commodore  World  Diciembre  1985/49— 1 


AGIA 


EN  BUSCA  DEL  REGISTRO  PERDIDO 

Amigos  de  Commodore  World:  Os  envío  una  subrutina  que  creo 
puede  ser  encajar  en  la  sección  “Magia”.  Su  utilidad  es  la  de  buscar 
un  registro  en  un  fichero  secuencial  cuando  se  desconoce  su  nombre 
exacto.  Esta  irá  comparando  carácter  por  carácter  hasta  dar  como 
resultado  el  número  de  registro  cuyo  contenido  es  el  más  próximo  al 
que  nosotros  llamamos.  Cuando  más  cortos  sean  estos,  mayor  rapi¬ 
dez  en  la  búsqueda. 


62000  CT-0:  FOR  X=1  TO  NR:  A$=RG$: 
B$=RG$ ( X ) :  IF  LEN  (A*)  >  LEN  <B$) 

THEN  A*=B$:  B$=RG$ 

62010  CF'=0:  Y=l:  FOR  A=1  TO  LEN  <A$)  : 
FOR  A= 1  TO  LEN ( A$) :  FOR  B=Y  TO  LEN ( 
B$) 

62020  IF  MID$ (A$, A, 1 )  =  MID* ÍBÍ, B, 1 > 
THEN  CF-CF'+l:  Y=B+1:  B=LEN(B$) 

62030  NEXT  B, A:  IF  CP>CT  THEN  CT=CP: 
Z  =  X 

62040  NEXT  X:  RETURN 


La  variable  NR  del  bucle  FOR.. .NEXT  en  la  línea  62000  debe 
contener  el  número  de  registros  total  del  fichero.  En  la  misma  línea 
RG$  es  el  nombre  con  el  que  llamamos  al  registro  a  buscar  y  RG$(X) 


SUPER-SHIFT 

Aquí  van  algunos  trucos  desde  el  teclado: 

Shift  de  la  izquierda  +  crsrd  +  inst/del  da  # 

Shift  +  run/stop  es  igual  que  load  (ret)  run  (ret) 

Space  +  F1  +  F5  da  Q 

Space  +  F1  +  F3  +  F5  da  el  mismo  resultado  que  Commodore-Q 
Shift  de  la  izquierda  +  F7  +  crsrd  da  $ 

Shift  de  la  derecha  +  F1  +  F5  da  el  signo  PI 
Shift  de  la  derecha  +  F1  +  F3  da  el  signo  = 

Shift  de  la  izquierda  +  crsrd  +  crsrr  da  Shift  A 
Shift  de  la  derecha  +  F1  +  crsrd  da  ? 

Shift  de  la  izquierda  +  F1  +  crsrd  da  un  rombo 

Shift  de  la  derecha  +  F1  +  crsrr  da  corchete  a  la  derecha 

Shift  de  la  izquierda  +  F3  +  crsrd  da  un  corazón 

Shift  de  la  izquierda  +  F5  +  crsrd  da  una  raya  hacia  arriba 


COMEVI,S.A. 

COMPAÑIA  ESPAÑOLA 
DEL  VIDEO  INDUSTRIAL 


Multivisor  pantalla  gigante  52”  70”  y  80”.  Alta  calidad  de  imagen  (Proyector  +  Pantalla). 

Viladomat,  110.  Telf.  323  34  51-323  38  00.  08015-Barcelona 


¡W  O  R  L  D 


1 - - - 1 

COMMODORE  WORLD 

EN  DISCOS 

NOMBRE  . 

DIRECCION  . 

POBLACION  . TELEF . 

'( . )  PROVINCIA  . 

DESEO  RECIBIR  EL  DISCO  CON  LOS  PROGRAMAS  DE  LA  REVISTA  N«  . 

PRECIO  DEL  DISCO  2.000  PTAS.  —  SUSCRIPTORES  DE  LA  REVISTA,  1.750  PTAS. 

SOV  SUSCRIPTOR  □  Ne  DE  SUSCRIPTOR  _ 

DESEO  SUSCRIPCION  ANUAL  (1 1  DISCOS)  A  PARTIR  DEL  Ne  (Suscripción  1 7.500  Ptas)' 

□  Incluyo  cheque  por  valor  de .  pesetas  Firma. 

□  Envío  giro  nu  . por .  pesetas 


SI  DESEAS  RECIBIR  LA 
REVISTA  EN  DISCOS 
PARALELAMENTE  A  LA 
EDICION  IMPRESA,  EN¬ 
VIANOS  ESTE  CUPON. 
EL  DISCO  SOLO  LLEVA 
GRABADOS  LOS  PRO¬ 
GRAMAS  DE  LA  REVISTA 
PERO  NO  LOS  ARTICU¬ 
LOS.  CADA  DISCO,  A 
PARTIR  DEL  N»  14  INCLU¬ 
SIVE,  VA  EN  SU  ESTUCHE 
CON  SU  PORTADA  CO-  i 


(•)  La  suscripción  no  puede  iniciarse 


lúmeros  anteric 


RRESPONDIENTE  A  TO¬ 
DO  COLOR. 


Commodore 


Barquillo,  21,  3e  Izda. 

Teléf.:  231  23  88/95 
28004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


Barquillo,  21,  3Q  Izda. 

Teléf.:  231  23  88/95 
28004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


EJEMPLARES  ATRASADOS  DE  COMMODORE  WORLD 


w 

O  R  L 

D 

Peticionario 

Calle 

Población 


□  Incluye  cheque  por  valor  de 

□  Envío  giro  n2  .  por 


l’recio  del  ejemplar  315  pías. 

Forma  de  pago:  sólo  por  cheque  o  giro. 

A  partir  del  ne  18  (inclusive) 
el  precio  del  ejemplar  es  350  ptas. 

(Núms.  anteriores  están  agotados). 


N2' TELEF . 

D.  P.  Provincia 

pesetas+75  de  gastos  de  envío, 
pesetas. 


Título  del  programa  . 
Título  del  programa  . 
Título  del  programa  . 


SERVICIO  DE  CINTAS 

D«  programas  aparecidos  en  Commodore  World. 


.  publicado  en  nQ  O 
.  publicado  en  nQ  D 
.  publicado  en  ns  O 


..  TELEF. 


Precio  por  cinta  850  pesetas.  Gastos  de  envío  75  pesetas.  Forma  de  pago:  sólo  por  cheque  o  giro. 

Peticionario  . 

Calle  . 

Población  .  D.P . 

□  Incluyo  cheque  por . pesetas. 

□  Envío  giro  n9 . por  pesetas. 

Si  se  desea  disco,  acogerse  al  servicio  Commodore  World  en  di; 


.  N2  . 

...  Provincia  . 

Programa  para  VIC-20  □ 

Programa  para  C-64  □ 

:o  con  todos  los  programas  del  n2  correspondiente. 


EJEMPLARES  ATRASADOS  DE  «CLUB  COMMODORE» 

Primera  época  (septiembre- 1982  -  enero- 1984) 

Para  poder  satisfacer  la  creciente  demanda  de  Club  Commodore,  agotada  en  todos  sus  números,  hemos  puesto  en 
marcha  un  Servicio  para  suministrar  fotocopias  de  los  ejemplares  que  nos  sean  solicitados. 

SERVICIO  DE  FOTOCOPIAS  -  NUMERO  DE  LA  EDICION  SOLICITADA 


0 

rr 

2 

3 

4 

5 

6 

7 

8 

9  10  !  11  .12 

13  14  15 

III.! 

1  1  1 

Peticionario:  D . 

Calle  . 

Población  . 

Forma  de  pago  sólo  por  cheque 
La  colección  completa  del  0  al  15:  2.500  ptas. 
Incluyo  cheque  por . ptas. 


.  N2  . TELEF . 

.  D.P .  Provincia  . 

Precio  de  la  edición  fotocopiada:  250  ptas. 

+  150  ptas.  por  gastos  de  envió. 

Envío  giro  n2  . por 


pesetas. 


Commodore 


Barquillo,  21,  3e  Izda. 

Teléf.:  231  23  88/95 
2$004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


Commodore 


WORLD 


Barquillo,  21,  3e  Izda. 

Teléf.:  231  23  88/95 
28004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


W  O  R  L  D 


Barquillo,  21,  3S  Izda. 

Teléf.:  231  23  88/95 
28004  MADRID 

Sant  Gervasi  de  Cassoles,  39-despacho  4 
Teléf.:  212  73  45  /  212  88  48 
08022  BARCELONA 


Felices  Pascuas 

con  un  ordenador  de  Lobercio 


commodore- 

COMPUTER 


C-128  K  69.9d;5 

a  solo  H 


COMMODORE  C-64 
Unidad  de  disco  1541 
Commod.  Super  juego  A 
Idem.  B.  ambos  en  Disc 


42.990  pts. 

44.990  pts. 
1.990  pts. 
1.990  pts. 


C-64/ 1 541  PACK 

Impresora  MPS  803 
Cassette  PM  16 
Joystick  AV  III 
Autocopy 

(copiadora  de  programas) 


81.990  pts. 

31.990  pts. 
7.500  pts. 

2.990  pts. 

4.990  pts. 


IMPRESORA  DPI 65 


80  Col.  165/200  CPC,  paral/ser. 
Interf.,  tracción-fricción,  IBM/ 
EPSON  Compatible,  2/8  K  Bufer 


99.950  pts. 

Interf.  ser.  9.990  pts. 


BASF 


5’/ 

3 


>  J 1  cara  doble  dens.  31 0*  pts. 
4  2  cara  doble  dens.  385*  pts. 


Maxell  1.190  pts. 

le  20  diskettes 


COMPRUEBA  ESTAOFERTA 


toda  clase  de  repuesto 


Precios  en  ptas. 

COMMODORE  SPECTRUM 

6510  4.135  ULA  1.7 

6581  6.800  Z80A-CPU  4 

6526  3.995  4116/2  3 

6569  11.500  68008  8.8 

901227 
901226 
901225 
Fuente  Alim. 


3.389  PC-Compon 
3.389  IC8087  39.900 

5.500  Teclado  29900 


fSPÉCÍRÜM 1 

— 

PLUS 

— 

29.—  pts. 

Interface  1 

Microdrive 

Unid,  disco  Opus  1/180  K 

Joystick  AV  III 

Interface  Joystick 

11.900  pts. 

11.900  pts. 

42.900  pts 
2.990  pts 
2.990  pts 

CANON 
PC  20 
PC  25 


Canon 

1 59.760  - 


pts. 


198/ 


pts. 


Cartucho  PC  r  qqo 

negro,  rojo,  verde  I  O.  pts. 


GARANTIA:  6  meses 
ENTREGA:  48  horas 
MANUAL  usuario: 

Castellano 

¡COMERCIO-CONSULTENOS' 


Commodore 

PC10  349.500  pts. 
PC20  549.500 

programas 
y  periféricos  ¡consi 


pts. 


□  adjunto  talón  nominativo 

□  pagaré  contra  reembolso 


Pts. 

totales 


Nombre . 

Apellido . 

Dirección.... 

Población... 


LOBERCIO,  S.A. 
COMPOSIT.  LHEMB.  RUIZ  1 
29007  MALAGA 


D.P. .. 


deseo  recibir  el  material  Indicado, 
fecha:  firma: 


pedidos  por  teléfono 


í  27  30  43 
(952)  {  39  44  08 
{  44  82  64 


“ COLABORACIONES ”  es  vuestra  sección  que  consiste  en  los  programas 
que  vosotros,  los  lectores  de  “Commodore  World”,  nos  mandáis.  Todos  los 
programas  publicados  participan  en  los  sorteos  que  se  realizan  cada  seis  meses 
en  que  los  ganadores  reciben  premios  concedidos  por  la  revista  y  por  Micro- 
electrónica  y  Control. 

Los  programas  deben  ser  enviados  en  cinta  o  en  disco  que  posteriormente 
será  devuelto  al  lector  con  un  programa  grabado  de  regalo.  También  se  pide 
una  explicación  breve  del  programa  así  como  un  listado  del  mismo.  Es  impor¬ 
tante  incluir  el  nombre,  dirección  y  teléfono  del  autor  aunque  los  dos  últimos 
datos  no  serán  publicados  si  así  lo  desea  el  interesado. 

¡Animo  y...  a  programar! 
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O0,08,R9,07,8O,fl9,02,8E,AH,02,E8,20,RB,0 

2,CA,20 

53  DRTARF,02,E8,E0,15,D0,F3,A5,FC,20,RF, 

02, 60, FIN 

55  F0RT=4864+ 1 28T051 19 iREROR* : IFR*=“FIN"THEN60 

56  G0SU81 sPOKET,B:S=S+B:NEXT 

57  DRTRR2, 15,20, RB, 02,85, FC,CR, 20, RB, 02, E8, 20 

58  DRTRRF,02,CR,E0,00,D0,F3,R5,FC,20,RF, 
02,C9,04,F0,01,60,R9,08,8O,R9,02,60,FIN 

60  FORT=4096TO4351  sREROR* :  IFRF="FIN"THEN70 

6 1  GOSUB 1 : POKET , B  s  S=S+B : NEXT 

62  DRTR20,00, 14,R9,42,8O,RC,02,8D,B0,02, 

20,00, 13,H9,6E,8D,HC, 02,80, B0, 02, 20, 00,  13,R9,84 

63  DRTR8O,RC,82,8O,B0,02,20,00, 13,20,00, 

13, R9,DC,80,RC, 02, 8O,B0, 02, 20,80,13,89,5 
8,8O,RC,02 

64  DRTR8O,B0, 02,20, 00, 12,R9,9fl,8D,RC,02, 
8D,B0,02. 20, 00,1 2, R9,C6, 80, RC, 02,80,80,0 
2,20,00,41 

65  DRTR60,FIN 

78  F0RT=673T0699 i RE ADA* ! I FR*= “ F I N" THEN75 

71  G0SUB1 sPOKET,B;S=S+BsNEXT 

72  DRTRBD,34,1F,60,9O,34,1F,60,00,00,BO, 

2C,  1E,60,9O,2C,  1E,60,FIN 

75  FORT=5376TO5504  :REROfl*  :  IFh*="FIN''GOTO80 

76  G0SUB1 :POKET,BíS=S+B:NEXr 

77  DRTRR9,01 ,85,01 ,85,00,ñD, 11,91 ,29, 10, 

F0, 15,A9,7F ,80,22,91 ,80,20,91 ,30,04,89,02,85.00 

78  ÜHTRR9,FF, 80,22,91,30, 02, 85,00,89, 01, 
C5,00,O0,09,flD, 1 1 ,91 , 29, 04, D0, 03, 85, 01 ,60 

79  ORTRfiO, I 1 ,91 ,29,08, 00,04,89,02,85,01 ,60, FIN 

80  RERO  R:IFR<256FHENFORT=0TO7:REROB:POK 
E7168+8*R+T,B  :S=S+B  :NEXT  :GOTO80 

85  DRTR  0,254,47,206,206,206,206,47,254 

86  DRTR  2,127,232,103,103,103,103,232,127 

87  DRTR  3,127,244,115,115,115,115,244,127 

88  DRTR  1,254,23,230,230,230,230,23,254 

89  DRTR  4,153,189,126,60,60,90,129,129 

90  0RTR12, 127,64, 172, 167, 160, 174,64, 127 

91  DRTR13, 255,0, 224,6,60, 193,0,255 

92  DRTR 14, 254, 2, 241 , 1 ,29, 193,2,254 

93  DRTR 15, 66, 90, 60, 60, 60, 60, 90, 66 

94  DRTR16,66, 90, 60,60,60, 60, 90, 66 

95  DRTR17 ,60, 126,231 , 195,195,231 , 126,60 

96  DRTR18,60, 126, 231, 195, 195,231, 126,68 

97  DRTR20 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 


99  DRTR22 , 255 , 255 , 255 , 255 , 255 , 255,255 , 255 

100  DRTR55,60,90, 126,36,60, 195, 126, 195 

101  DRTR56,66,90, 126,60,  126,90,66,0 

102  DRTR57, 36, 36,24, 24, 24, 60, 36,36 

103  DRTR58,60,66, 153, 165, 165, 153,66,60 

104  DRTR59,0,60,66, 153, 153,66,60,0 

105  DflTfl60,0,24,36,98,90,36,24,0 

106  DRTR61 ,0,0,24,36,36,24,0,0 

107  DRTR62, 0,0,0, 24, 24, 0,0,0 

108  DRTR63, ,,,,,,, 

109  DRTR41, 0,14, 251, 171, 15, 79, 254, 6 

110  0RTR42, 0,0, 192,240,252,255,0,0 

1 1 1  ORTR43,0,36, 255,255,255,255,0,0 

112  0RTR31, 66, 165, 90, 36, 36, 90,  165, 66 

113  DRTR32 ,,,,,,,, 

114  DRTR256 

115  I FSO 1 08903THENPR I  NT "  C CLR  3ERR0R  EN  L 
RS  LINERS  DRTfi“:PRINT"REVISHRLflS“:STOP 
120  PRINT'* CPUR3 CCLR1PULSE  UNR  TECLA  ..." 
125  POKE198,0JWRIT198,1 sPOKE198,0sPOKE63 
1,131 :P0KE198,1 :END 

1 50  P0KE36879 ,27lPRINT"C CLR ICREDICU CRSR 
DICRRGRNDO  LRS  DRTRS  . . . “ :PRINT“ C2CRSRDI 
ESPERE  40  SEGUNDOS" 

151  S=0 
155  G0T05 


2  RN=RN0<-TI) 

10  H=7680 :C— 38400 :P0KE36878, 15 |F0RT=3687 
4T036877  sP0KET,8:NEXT 

15  FORT=lTO10sSC*<T>="J.G.G . “ ¡SC<T1= 

500 s NEXT 
20  LE— 1 sLI=3 
25  PGKE68 1 , 0  s P0KE682 , 0 
27  GOSUB9000 
30  GOTO2500 

1 000  FORRQ=  1 TO 1 40-LE#20 :  NEXT 
1010  IFVRL<TI*»VRL<T*>THEN1370 
1020  SVS4096 

1025  IFV<14THENP0KEC+X+22#V,C0 
1030  IFV=6THENX=X-2:GOTO1060 
1 040  I  FV=  1 0OR V=70RV=4THENX=X+ 1  s  GOTO  1 060 
1050  IFV=90RV=50RV=3THENX=X-1 


Equalization  -  Ecualización. — Sistema  empleado  en  la 
transmisión  de  datos  para  que  las  características  de  fase  y 
amplitud  de  una  señal  transmitida  sean  recibidas  correctamente 
J  s'  en  el  final  de  la  línea  de  conexión.  Se  refuerzan  aquellas  caracterís- 

ticas  de  la  señal  que  resultan  más  atenuadas  por  el  medio  de  trasmisión. 

V  Equalizcr  -  Ecualizador. — Conjunto  de  resistencias,  bobinas,  condensadores 

|||  insertados  en  la  línea  para  mejorar  su  respuesta  en  frecuencia.  Se  encarga  de  realizar 

9  la  ecualización  necesaria  para  la  línea  de  comunicación. 

Equipment  -  Equipo. — Una  unidad  de  hardware  (física),  generalmente  compuesta  a  su  vez 
^  por  varias  unidades  físicas. 

[  Error. — Discrepancia  entre  los  valores  o  condiciones  calculados,  observados  y/o  medidos  y  los 

valores  teóricamente  correctos. 

Error  Code  -  Código  de  error. — El  código  que  se  imprime  o  visualiza  para  indicar  que  un  error  ha  tenido 
lugar.  Estos  códigos  se  suelen  establecer  arbitrariamente  por  cada  fabricante  de  ordenadores  y  aparecen  en  los 
manuales  de  usuario  de  los  equipos  con  sus  significados. 

Error-condition  statement  -  Sentencias  de  condición  de  error. — Son  las  sentencias  ejecutables  que  permiten  al  programador 
indicar  qué  parte  del  programa  debe  ejecutarse  si  se  produce  un  error.  En  Basic  suele  ser  de  la  forma  ON  ERROR  GOTO. 

Error-correcting  system  -  Sistema  de  corrección  de  error. — Un  sistema  que  utiliza  algún  código  de  detección  de  errores 
asociado  a  las  señales  empleadas  para  corregir  automáticamente  un  error  cuando  es  detectado. 

Error-detecting  code  -  Código  de  detección  de  errores. — Son  los  caracteres  o  códigos  asociados  a  cada  elemento  de 
información  según  determinadas  reglas  preestablecidas,  de  modo  que  si  un  dato  recibido  no  cumple  la  regla  indica  la 
presencia  de  un  error.  Algunos  ejemplos  son  los  bits  de  paridad,  bytes  de  suma  de  bloques  (checksum),  códigos  Hamming, 

Error  routine  -  Rutina  de  error. — Es  la  rutina  ejecutada  cuando  se  detecta  un  error,  su  función  puede  ser  la  de  parar  el 
sistema  recuperando  ficheros,  visualizar  mensajes  de  error,  corregirlos,  repetir  la  última  tarea  (envío  o  recepción  de 
información)  o  ejecutar  otra  función  específica  para  la  corrección  del  error. 

Escape  character  (ESC)  -  Carácter  de  escape. — Un  carácter  utilizado  (en  muchos  casos  seguido  de  uno  o  varios  caracte¬ 
res  adicionales)  para  indicar  funciones  específicas.  En  muchas  impresoras  es  el  que  ordena  los  cambios  a  doble  anchura, 
gráficos,  caracteres  comprimidos,  etc.  Es  el  carácter  27  decimal  (CHR$(27)). 
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1060  IFV<14THENP0KEC+X+22*Y,5 
1065  IFPEEK<681 >O0THEN1470 
1070  GOSUB1300 

1080  IFPEEK<0>+PEEK<1>=2THENU60 
1090  P0KEX+Y*22+H,CU :P0KEX+V*22+C,C0 
1100  X=PEEK<0>+X-1 :V=PEEK<1>+Y-1 sIFV>22T 
HENY=22 

1105  X=X-<X<0>+<X>21> :IFV>13THENX=X-<X<1 
>+<X>20> 

1110  CU=PEEK <  H+X+ Y*22  >  : CO=PEEK  <C+X+V*22> 
1120  POKEH+X+ Y*22 , 4 : POKEC+X+ V*22 , 5 
1130  REM 
1140  GOTO 1200 
1150  GOTO1310 

1160  IFV=4ORV=7ORV=9THEN1180 
1170  GOTO1310 

1 180  IFPEEK<H+X+22*Y-1 >  =  1 70RPEEK < H+X+22* 

V+l  >  =  170RPEEK<H+X+Y*22-1  >  =  180RPEEK<H+X+Y 

*22+l>=18THEN1560 

1190  GOTO1310 

1200  IFV>13G0T01265 

1210  IFCU=32THEN1620 

1220  I  FCU=4 1 0RCU=42THEN1 660 

1230  IFCU=20OR<CU=4RNOY<3>THEN1660 

1240  IFY<3THEN2000 

1250  I FCU= 1 70RCU= 1 8THEN 1 620 

1260  GOTO1150 

1265  I FV>20THEN 1 1 50 

1270  I FCU032THEN 1660 

1280  GOTO 1150 

1300  SVS5376  sRETURH 

1310  PRINT" CH0M3 CRVSON  3  PUNTOS" INT<SC> " CC 
RSRL  3  C RVSON 3  TIEMPO  "RIGHT*<TI*,2> 

1312  I F Y=80RY= 1 1 ORY= 1 20RY= 1 30RY= 1 50R Y= 1 7 

OR  V=  1 90R  Y=2 1  ORV=22THEN  1 330 

1 320  SC=SC+LE#2 ! I FY< 1 1 THENSC=SC+2*LE 

1 330  I FSC>5000RNDSCX6000THENSC=SC+ 1 000 : L 

I=LI+1 

1340  REM 

1350  REM 

1360  GOTO 1000 

1370  GOSUB1750 

1380  LI-LI-1 

1390  IFLIC1GOTO2500 

1 400  P0KEX+H+22*V , CU ; POKEX+C+22* V , CO 
1410  X=10:V=21 :CU=22:CO=0 
1420  POKE681,0 

1430  P0KEX+H+22*V,4  s POKEX+C+22* Y, 5 
1440  REM 

1450  TI*="000000" 

1460  GOTO  1000 

1470  I FPEEK  <  68 1 1  <5THEN  1 520 

1474  IFY=5THENP0KEX+C+V*22,2 

1 475  I FV=6THENP0KEX+C+22*Y , 7 

1476  IFV=10ORY=7ORY=4THENV=V-1 sGOTO1480 

1477  IFV=90RY=50RY=60RY=3  THENV=Y+1 
1480  GOSUB1700 

1490  LI— LI— 1 
1500  I FL I  <  1 THEN2500 
1510  GOTO 1400 
1520  GOSUB1750 

1530  I FPEEK <681 >=20RPEEK<681 >=1THENCU=0 

1540  IFPEEK<681>*=30RPEEK<681>=4THENCU=3 

1545  LI=LI-1 

1547  I FL I <1 THEN2500 

1550  GOTO  1400 

1560  GOSUB1700 

1570  CU=PEEK<H+X+Y*22-1 > ! IFCU=32THENCU=P 


1600  I FL I < 1 GOTO2500 
1610  GOTO 1408 
1620  GOSUB1700 
1630  L I  =L  I  —  1 
1640  IFLIC1GOTO2500 
1650  GOTO 1400 
1660  GÜSUB1750 
1670  LI=LI-1 
1680  IFLIOTHEN2500 
1690  GOTO 1400 

1700  FORT=0TO7:POKEH+X+V*22,T+56 

1710  FORU=0TO7 :P0KE36876 , RND  < 1 >  * 1 00+ 1 30 : 

P0KE36876 , 0 

1720  P0KEC+X+22*V,U :NEXT :NEXT 
1 730  P0KE385 10,7: P0KE38642 , 0 : P0KE38576 , 0 
:POKE38465,0 :POKE38597,0 
1740  RETURN 

1 750  P0KEH+X+Y*22 , 55  :  P0KEC+X+Y*22 , 0 
1760  FORT=220TO 1 40STEP- 1 
1 770  P0KE36877,T :FORU=1TO20 sNEXT :NEXT :PO 
KE36877 , 0 : RETURN 
2000  CU=4:CO=5:NS=NS+l 

20 1 0  FORT= 1 35TO250STEP8 : FORU=0TOT/ 1 0 : POK 
E36876 , T : NEXTU, T i P0KE36876 , 0 
2020  SC=SC+<VRL<T*>-VfiL<TI*>)*LE*2 
2030  I FNS<4THEN 1 400 

2040  NS=0 :GOSUB8500 
2050  LE=LE+1 :IFLE>5THENLE=5 
2060  CU=21 :GOSUB4000:GOTO1400 
2500  GOSUB5500 

2518  SC=0:LE=1 :NS=0 :P0KE36869, 255 : PRINT" 
C  CLR 1 " :LI=5 

2520  X=10:Y=21 :CU=22sCO=5:GOSUB4000:GüSU 
B8000: GOTO 1400 

4000  GOSUB5000 :GOSUB5680 : IFLE<3THEN4108 
4010  PRINT"  CHOM]  C5CRSROKPUR3"  ; 

4020  Xl=RNO< 1 >*5 

4025  8*=">":F0RT=1T0X1 :fl*=R*+"+" :NEXT :H* 
=fl*+"*" 

4030  . . . NEXT 

4040  X1=RN0< 1 >*10+5 :fl*=LEFT*<RIGHT*<fi*,X 
1 >  +LEFT*  <  fi* , 22— X 1 > , 22> 

4050  PRINTR#"CHOM]“ 

4 1 00  P0KE4372 , 1 8-LE*2 : P0KE4626 , 1 8-LE*2 
4 1 05  P0KE4376 , 34-LE*2 : POKE4630 , 34-LE*2 
4110  POKE4380 , 23— LE#2 : P0KE4634 , 23-LE*2 
4115  P0KE4384 , 39— LE*2  :  P0KE4638 , 0 
4120  RETURN 

5000  PR I  NT  "  CCLR  ]  CBLK  3  TTTTTTTTTTTTTTTTTTT 
TTTTTTTTTTTTTTTTTTTTTTTTT " ; :PR I NT " C  BLK 3  T 
UTTTTUTTTTUTTTTUTTTTT" ; 

5010  G0SUB5 100: PR I NT " C YEL  3 " fl* ; 

5015  GOSUB5200 : PR I NT “ C RED  3 " R* ; 

5020  G0SUB5 1 00 : PR I NT " C  YEL  3 " fl* ; 

5025  G0SUB5 100: PR I NT " C  YEL  3 " R* ; 

5030  GOSUB5200 : PRINT" CREO] "RT ; 

5035  PRINT"  CBLK] VWWVWVWWVWWWVV"  ; 
5040  GOSUB5200 : PR I NT " C  RED  3 " fi* ; 

5045  GOSUB5100:PRINT“CVEL3"fl*; 

5050  PRINT" CBLK3WVWWWWWVWVWWWV 
VVVVVVVVVVVVVWVWWWVWVWVWWWVVVW 

5055  C*="B@" : GOSUB5300 : PR I NT " C PUR 3 " R* 
5060  C*="CR" :GOSUB5300 :PRINT" CBLU3 “R* 
5065  C*=  "  B@  "  :  GOSUB5300 :  PR  I  NT  "  C  PUR  ]"R* 
5070  C*="CR" :GOSUB5300 :PRINT" CBLU3 "R*i 
5075  PRINT"  CBLK] WWVWVVVVWVVWWWVW 
VVWVWWWWVVWVVCHOM3  “  ;  :P0KE8185,22  :P 
OKE38905 , 0 
5080  RETURN 

5100  TR=2 : IFRND< 1 >>. 8THENTR=1 

51 10  X0=INT<  16/LE+-53— 2*TR  :  IFTR=2THENX1= 

INT <RND< 1 >*<X0— 2>  >  +  l :X2=X0— XI 

5120  X3=22-X0-2*TR : IFTR=2THENX4=INT CRNCK 

1 >*<X3— 2>  >  +  l :X5=X3-X4 

5130  . . . 
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5240  RETURN 

5300  I FLE= 1  THENA*= “  C  5SPC  3 " +C*+ " C  6SPC  3"+C 
*+"C5SPC3"+C$ 

5310  I FLE=2THENA*= “ C2SPC3 "+C*+" C3SPC3 "+C 
*+“ C3SPC3 "+C*+” C3SPC3 “+C*+" C3SPC] “ 

5320  I FLE=30RLE=4THENA*=  "  C2SPC3  "+C*+“  C2S 
PC3 “+C*+" C2SPC3 "+C*+" C2SPC3 "+C*+" C2SPC3 “ 
+C4+" C2SPC3 " 

5330  IFLE=5THENA*=“C2SPC3"+C*+"  "  +C$+"C2 
SPC  3  " +C*+  M C  2SPC 3 " +C*+ “  “ +C*+ “ C  2SPC 3" +C* 
5340  X0=  I  NT  < RND C  1  > « 1 0 >  +5 1 X 1  =22-X0 1 A*«LEF 
T*<RIGHT*<A*,X1>+LEFT*<A*,X0>,22> 

5350  RETURN 

5500  POKE36869,240  sP0KE36879,2? :PRINT" CC 

LR3  CBLU3 " : IFSC<=SC< 103THEN5565 

5505  PRINT"SU  NOMBRE, POR  FAVOR  “:PRINT"C 

8CRSRD3 "  :A*=" - ¡ - •'  :6*="  •'  :C*="  “  sPRI 

NTTAB<6>A*"CCRSRU3" 

55 1 0  GETC*  :  I  FC*= •• "  THEN55 1 0 

5511  I FASC  CC*) =34THEN55 1 0 

5512  I F < ASC (CS) <320RASC <  C*  >  > 1 27  > AND <  ASC  < 
C*  >  O20ANORSC  <  C*  >  0 1 3)  THEN55 1 0 

5515  I FC*=“ ANDLEN (B* 3 <2THENB*=“" SG0T0553 


5522  I FC$=CHR* C13J ANDLEN < 8* 3 =0THENB*=A* : 
GOTO5550 

5524  I FC*=CHR* <13> ANDLEN (B»)<1 0THENB*=B* 
+RIGHT*CA», 10-LEN<B*>> :GOTO5550 

5525  IFLEN<8#)=10GOTO5550 
5530  B*=B*+C* 

5535  I FLEN < B*  >  =0THENPR I NTTAB< 6 >  A$"  I CRSRU 
3":GOTO5510 

5537  I FLEN ( B* >  =  1 0THENPR I NTTAB (6)B* "[ CRSR 
U3“ ¡GOTÜ5510 

5540  PR 1 NTTAB ( 6 ) BS ; R I GHT* ( A* , 1 0-LEN  <  B*  > ) 
" C  CRSRU  3 " ¡FORT= 1 TO 1 00  j  NEXT ! G0T055 1 0 

SCTHENNEXT  sGOTO 

5565 

5555  FOR I  =9T0TSTEP- 1  s  SC  <  I  + 1 )  =SC  <1 )  s  SC*  C  1 
+  1>=SC*< 13  sNEXT 

5560  SC<T3=SC:SC*<T3=B*:T=10 sNEXT 
5565  P0KE36879,25 SPRINT" CCLR3"; SPRINT" t3 
SPC3TABLA  DE  RECORDS C3SPC 3 “ 

5570  FORT=1TO10 sPRINTT"  "SC*<T3SC<T3 sPRI 
NT  s NEXT  s  PR I NT “ C  CRSRU  3 “ ; 

5575  A*="C4SPC3'P'  PARA  JUGARC4SPC3 ' I '  P 
ARA  INSTRUCCIONES" 

5580  A*=RIGHT*<A*,433+LEFT*<A*,13  sPRINTL 
EFT*< A*, 22) " I CRSRU 3 " ,- sFORT=l TO300  sNEXT 
5595  GETB*  :  IFB*<>"P"  AN08*O"  I  "GOTO5580 
5597  IFB*=“I"THEN27 
5600  T*=STR*<60-<LE-13*53 
5605  RETURN 

8000  REAOAK  s I FAKTHENP0KE36876 , AK sFORTM=l 
TO160 sNEXT s  P0KE36&76 , 0 sFORTM=lTO20  sNEXT s 
GOTO8000 

8010  DATA207, 195, 195, 195,207, 195, 195, 195 
8015  DATR209, 209 , 207 , 207 , 20 1 , 1 75 , 1 75 , 1 75 
8020  DAT A209, 209, 207, 207, 20 1,201 


25  DATA219,219, 215,209, 207,201, 195,0 
30  RESTOREs RETURN 
00  REAOA  s I FATHEN8500 

1 0  READA , B  s  IFATHENP0KE36876  ,  A  s FORT=  1  TO 
0  sNEXT  :POKE368?6,0  sFORT=  1  TO40t-B*50 : NEX 
GOTO8510 

20  DATA207, ,207, ,209,, 215, ,215, ,209, ,2 


APLICACION  NOMINAS  Y  SEGURIDAD  SOCI¿ 

Adaptación  al  CBM-64  del  programa  de  nómirn 
serie  8000  de  más  prestigio  en  España,  con  las  últir 
zaciones  de  la  Seguridad  Social. 


-  Hasta  100  trabajadores  por  empresa. 

-  Ejecuta  nóminas  mensuales,  diarias,  tiempo  parcia 
horas),  pagas  extras  (separadas  o  no,  y  con  posibi 
prorrateo  anual  de  percepción),  altas,  bajas  y  finii 

-  Talones  bancarios. 

-  TC2  y  TCÍ. 

-  Certificados  anuales  de  retenciones  a  trabajadorei 


—AMPLISIMA  GAMA  DE  PROGRAMAS  PARA 
TODA  LA  SERIE  8000  DE  COMMODORE. 
—PROGRAMAS  PARA  EL  IBM-PC  Y  COMPA¬ 
TIBLES. 


X 


TODOS  nuestros  programas  son 
compatibles  con  el  nuevo 
COMMODORE-128 


¡¡Especialistas  en  software 
TRANSPORTABLE!! 
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LQUIER  TECLAÍ3SPC3" 

9050  WAIT198,1 :POKE198,0 

9060  P0KE36864 ,12: P0KE36865 , 38 : P0KE36866 

, 1 50 : P0KE36867 , 46 : P0KE36869 ,240 

9070  PR I NT "[CLRJ==== INSTRUCCIONES  ====": 

PR I  NT  "CCRSROI  DEBES  COLOCRR  LA  RANA  QUE  A 

PHRECE  EN  Lfi  ACE-",- 

9080  PRINT “RA  SUR  EN  UN  HUECO  DE  LOS  QUE 
HfiV  EN  Lfi  ORI-LLfl  NORTE  DEL  RIO  VI3SPC3 


9090  PRINT  "REPETIR  ESTfi  OPERACION  4  VECE 
S  PRRR  PfiSfiRTE  Lfi  PflNTfiLLfi. “ 

9100  PRINT“ESQUIVfi  LOS  COCHES  VC2SPCISUB 
ETE  fl  LOS  TRONCOSC2SPC3V  fi  LAS  FLORES  QU 
E  NO  ESTEN  HUNDIDAS" 

9110  PRINT" [5SPC3PULSA  'SHIFT' [4SPC3 " :WR 
IT653, 1 

9120  PRINT" CCLR] NO  TE  DUERMAS  EN  LOSC2SP 
CJ TRONCOS  Vfl  QUE  SI  SEC2SPC JVfiN  OE  Lfi  Pfi 
NTALLA[4SPC3"; 

9130  PRINT"MORIRflS. TAMBIEN  MORI-  RAS  SI 
LAS  FLORES  SE  C 2SPC 3 HUNDEN  CUANDO  ESTAS 1 3 
SPC3SOBRE  ELLAS 

9140  PR INT "D I SPONES  DE  5  RANAS, [2SPC3RAN 
A  EXTRA  A  LOS  5000  PUNTOS." 

9150  PRINT-AL  CAMBIAR  DE  PANTALLA  AUMENT 
fl  EL  NIVEL  OEC2SPC3DIFICULTAD. " 

9160  PRINT-CONTROLA  LA  RANA  C0NC2SPCIEL 
JOVSTICK" 

9170  PRINT" C2CRSRDK5SPC 3 PULSA  'SHIFT'[4 

SPC3“:WAIT653,1 

9175  SC=0 

9180  RETURN 


Arce 

C-64  /  C-128  (Modo  64) 


Este  juego  es  la 
clásica  prueba  de  tiro 
con  arco  de  las  má¬ 
quinas  de  vídeojue- 
gos  que  hay  en  la 
calle.  El  funcionamiento  es  muy  sencillo,  a  base  de  menús.  Se  puede 
utilizar  teclado  o  Joystick.  La  explicación  del  programa  es  la  siguiente: 


Jordi  Sais  (15  afios)  -  Centro  C.E.I.G. 

C/Bourg  de  Peage,  5-7 

Sant  Feliú  de  Guixols  (GERONA) 


1740 

1850-1860 

1870-2060 

2070-2100 

2140-2210 

2220-2310 

2320-2620 

2630-2680 

2690-2700 

2710-2730 

2740-2800 

2810-2830 


Prepararse. 

Lee  datas  trofeo. 

Imprime  resultados  competición. 
Pregunta  si  se  juega  otra  vez. 
Cálculo  e  impresión  de  Flechas. 
Referencias  del  programa. 
Bloque  de  datas. 

Dos  sonidos. 

Partida  acabada. 

Prueba  no  superada. 

Sprite  trofeo. 


10  REM  **  A  R  C  O  ##  AUTOR:  JORDI  SAIS  R 
IERA  ##  C.E.I.G.  **  COMMOOORE  64 
20  DIMFJ <63> 

30  RESTORE : PR I NT " C  CLR 3 “ : LETPL= 1 : LETL*= "P 
RHCTICAR" :LETRT=4000 :LETPR=1 :LETGA=0 :VI= 

40  GOSUB 140: GOSUB2220 : GOSUB50 : GOSUB430 : G 
OSUB660 :GOTO780 

50  POKE2042, 194 :F0RI=12416T012478 :READA : 
POKE I , fl : NEXT I 

60  POKE2041 , 193  :F0RJ=12352T012414  .-READB  : 
POKE J,B: NEXT J 

70  POKE2040, 192 : FORM= 12288TO12350 :READN : 
POKEM,N:NEXTM 

80  POKE2046, 198 :F0RG=12672T0 12734 :READH : 
POKEG.H :NEXTG 

90  P0KE2944 , 1 96 :FORD= 1 2544T0 1 2606 : READE : 
POKED , E : NEXTD 

1 00  POKE204? ,199: FORP= 1 2736T0 1 2798 : READQ 
: POKEP , Q : NEXTP 

1 1 0  POKE2043 , 1 95 :FORC= 1 2480TO 1 2542 : RE ADF 
:POKEC,F :NEXTC 

1 20  POKE2045 , 1 97 :FORSW= 1 2608TO 1 2670 : READ 
SZ :POKESW,SZ :NEXTSW 
130  RETURN 

140  POKE53280 , 5 : P0KE5328 1,5 
150  PR  INT  ,  “  C  VEL  3  C  CRSRD  3 1 RVSON  3  [  4SPC  3  [  CRS 
RR  3  [  4SPC  3  [  CRSRR  3  [  4SPC  3 1 CRSRR 3  [4SPC3 11 
160  PRINT, "CRVSON3  C2CRSRR3  C CRSRR 3  I2CR 
SRR3  [CRSRR 3  C4CRSRR3  C2CRSRR3  “ 

170  PRINT, "CRVSON3  [2CRSRR3  C CRSRR 3 [ 4SPC 
3 C CRSRR 3  [4CRSRR3  C2CRSRR3  “ 

180  PR I NT ,  "  C RVSON 3  C 4SPC 3  C CRSRR 3  [CRSRR 3 
C2CRSRR3  C4CRSRR3  C2CRSRR3  " 

190  PRINT, “CRVSON3  C2CRSRR3  [CRSRR 3  [CRS 
RR3  [2CRSRR3  Í4CRSRR3  I2CRSRR3  " 

200  PRINT, "[RVSON3  [2CRSRR3  [CRSRR 3  [CRS 
RR  3 [ 2SPC 3 [ CRSRR  3 [ 4SPC  3 [ CRSRR 3 [ 2SPC 3 [ 2SPC 
3" 

210  PRINT,, ”[WHT3[CRSRD3BV  JORDI  SAIS" 
220  PRINT" [HOM3 " 

230  PRINT, " [ 10CRSRD3 [RVSON3 [BLU3 [7SPC3 “ 
240  PRINT, "[RVSON3I2SPC3F  1  [2SPC3 " ; "  [RVS 
OFF3  [BLK3  [2SPC3  "  ;PL ;  "  JUGAOOR/ES" 

250  PRINT,"[BLU3[RVSONJ[7SPC3" 

260  PR I NT , " [ 2CRSRD 3tRVSON3[BLU3[7SPC3" 
270  PRINT, "[RVSONJ[2SPC3F  3I2SPC3 " ; " [RVS 
OFF3 [BLK3  Í3SPC3 " ;L$; "  " 
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280  PRINT, " EBLU3 [RVS0N3  E7SPC3 " 

290  PR I  NTTRB  (8)"[ VEL  3  [  CRSRD  3  [  RVSON  3  E  COMM 
fl  3  [  23SH I FT*  3  C COMMS  3 “ 

300  PRINTTRBC8)  '*  [RVSON 3  [SHIFT-3 PULSA  BAR 
RR  PRRR  RCRBRR  E  SH  I FT- 3 " 

310  PR I NTTRB <8)"[ RVSON 3 C COMMZ 3 E23SH I FT* 3 
[COMMX 3 " 

320  GETF$:IFF*="  "THENRETURN 
330  GETF* :IFF*="  "THENRETURN 
340  IFF$="EF13"THEN360 
350  GOTG380 

360  LETPL=PL+1:IFPL=3THENPL=1 
370  GOTO220 

380  IFF*=" [F33 "THENLK=LK+1 :GOTO400 

390  GOTO330 

400  IFLK=2THENLK=0 

410  I  FLK=0THENL*=  "  PRRCT I CRR  "  :  GOTO220 
420  I FLK= 1 THENL*= » COMPET I R " s  GOTO220 
430  POKE53280 ,14: P0KE5328 1 , 5 
440  PRINT " ECLR3  EBLK3  E38COMMI3" 

450  PRINT"  C RVSON 3  ECOMMR3 [ 17SHIFT*3[COM 
MS3  C6SPC3QURLIFV I C 4SPC 3 “ 

460  PRINT"  I  RVSON  3  CSHIFT-3PUNTURCION  :  C6 
SPC3  CSHIFT-3  C 18SPC3 “ 

470  PRINT"  [RVSON 3  CCOMMZ3 [ 17SHIFT#3 [COM 
(1X3  C  18SPC3  “ 

480  PRINT"  C RVSON 3 C 38SPC 3 “ 

490  PRINT"  [RVSON 3  [COMMR3 [ 17SHIFT*3 [COM 
MS3  [  18SPC3 ,r 

500  PRINT"  [RVSON 3  [SHIFT-3F.  DEL  VIENTO 
: [ 3SPC 3 [SHIFT-3 [ 18SPC3 “ 

510  PRINT"  [RVSON 3  ECOMMZ3 [ 17SHIFT*3 [COM 
(1X3  [  18SPC3  “ 

520  PRINT"  [  1 9C0Í1Í1U 3  [  1 9C0MÍ1U 3  " 

530  PRINTTRBC 30) " [ 1 0CRSRO 3 [ COMMR 3 [7SHIFT 
*3  ECOI1I1S3  " 

540  PR  I  NTTRB  <  30) " [SHIFT— 3  SCORE  [SHIFT-3 


560  PR I NTTRB <  30 )  "  [ SH I FT-  3  [ 4SPC 3  [ 3SPC  3  [SH 
IFT-3 " 

570  PR I NTTRB  <  30 ) “ [ COMMZ  3 [ 7SHIFT* 3  E  COMMX  3 
[ CRSRU  3 " 

580  LETR*=  “  <-[  SH  I  FT*  3  “ 

590  PRINT" EHOM3 E9CRSRD3 [WHT3 " 

600  PR I NTTRB < 30 ) " [ COMMR 3E7SHIFT*3ECOMMS3 

610  FORT=  1  TOS : PR I NTTRB < 30);" ESHIFT- 3  ";R 
",-R*;"  [ SHIFT-3 “:NEXTT 
620  PR I NTTRB <  30  )  "  [COMMZ 3  [7SHIFT*3  [COMMX 3 


630  PRINT" EHOM3E 17CRSRD3 “ ;THB<32> ; "GRROO 
S" 

640  PRINTTRB<33)  ;  " EVEL3<[3SPC3>“ 

650  RETURN 

660  LET V=53248 : POKE V+4 1,7: POKE V+4 , 1 98 : PO 
KEV+5,70 

670  LETV=53248 : POKE V+4 1,7: POKEV+4 , 1 98 : PO 
KEV+5,70 

680  POKEV+40, 13 :P0KEV+3, 1 15 
690  POKEV+37 , 6 :  POKE V+38 , 2 
700  POKEV+39 ,10 :POKEV, 175 :POKEV+l ,82 
7 1 0  POKEV+ 1 2 , 224 : POKEV+ 13,185: POKEV+23 , 7 
0 

720  POKEV+43 , 2 :  POKEV+8 , 255  :  POKEV+9 , 85 :  PO 
KEV+29,86 

730  POKE V+ 14,239 :P0KEV+15, 196 : POKE V+46 , 1 

3 

740  POKEV+42 ,10: POKEV+6 , 255 : POKEV+7 ,185: 
POKEV+37 , 9 :  POKEV+38 , 2 
750  POKEV+21 ,222 

760  POKEV+44, 10:POKEV+10,255 :POKEV+l 1,18 
5 : POKE V+28 ,42 
770  RETURN 
780  GOSUB1770 

800  I FPR=  1 THENPR I  NT  "  [ HOM  3  [  9CRSRD  3  [ BLU 3  [5 
CRSRR3  * ;V»; "  PULSA  'FUEGO' [ 1 1SPC3 " :G0T08 
20 

810  PRINT" EHOM 3 [9CRSRD3 [5CRSRR3 [BLU 3 " ;W* 
PULSA  'FUEGO' [  13SPC3 " 

820  F0RVI  =  1T09 

830  LET JV=PEEK( 56321 ) :LETFR=JVRND16 :LETJ 
V=15-<  JVRND15)  :  I FFRO 1 6THEN870 
840  PRINT"  EHOM 3  EBLK3  [6CRSRD3  [BLK3  "TRB<  1 7 
> ; " [ RVSON  3 [ 2SPC  3 “ ; " [ 2CRSRL  3 " ; V I ; " [ 4CRSRL 
3 [RVSON3 [2SPC3ECRSRR3  [SHIFT-3  " 

850  LETRD=RD+1 :IFRD=2THENRO=0 

860  NEXTVI :VU=1 :GOTO820 

870  I FVU=0RNDV 1=1 THEN V 1=9 

880  I FRD=0THENV I  =— V I  .-PRINT" [HOM3 [6CRSRD3 

“  TflB  <  1 6  )  ;  "  [  RVSON  3  [  2SPC  3  [  2CRSRL  3 1  [  2SPC  3  [  2 

CRSRL3 " íflBSCVI ) :GOTO910 

890  PR I NT " [ HOM 3[6CRSRD3"TflBC17);"[ RVSON 3 
E2SPC3 " ; " E2CRSRL3 “ ; VI ; " [RVSON 3 [SHIFT-3 " 
900  PRINT" E2CRSRD3  E38SPC3 " : IFPR=2THENRET 
URN 

910  IFL*=" PRRCT I CRR "THEN950 

920  FORUV=1TO3:LETPV=0:GOSUB1750 

930  LETRT=RT+1000 : IFRT=8000THENRT=5000 

940  PRINT"  [ HOM 3 E CRSRD 3  [ BLK 3  “  : PR I NTTRB < 33 

) “ [ RVSON  3 [ 6SPC 3 " ; " [ 6CRSRL 3";RT 

950  GOSUB1690 

960  F0RGU=1T011  :P0KE649,  10  :  IFGR=1THENP0K 


ELECTROAFICION  COMPUTER 

C/  VILLARROEL,  104  -  08011  BARCELONA  -  TEL.:  253  76  00  -  09 
C/  GRAN  VIA  CORTS  CATALANES,  559  -  08011  BARCELONA  -  TEL:  254  23  19 


1480  IFP<640THENRETURN 

1 490  POKEV+21 ,119: FORT= 1 TO300 : NEXTT : QO=Q 
0+1 :RETURN 

1500  1 FQO>5THENGOSUB2750 

1510  POKEV+2 1,79: LETWG=0 : LETQO=0 : LETTD=0 
1 520  I FL*= " PRHCT I CflR " ANDPL= 1 THENGOSUB 1 66 
0  :GOSUB2690  -.POKEV+21  ,0  :PU=0 :GOTO2070 
1530  I FL*= " PR ACT I CflR " ANOPR= 1 THENPR=2 : GOS 
UB 1 660 :GOSUB430 : GOSUB790 : G0T09 1 0 
1540  I FL#= " PRACTICAR " THENPOKE V+2 1 ,0 :GOSU 
B1 660 :GOSUB2690 :UETPU=0 :PG=0 :GOTO2070 
1 550  I FL*= " COMPET I R “ RNDPL= 1 THEN 1 570 
1560  GOTO 1600 
1570  IFPV<RTTHEN2110 

1 580  LETPY=0 : GOSUB 1 660 : GOSUB590 : NEXTUY 
1590  GOTO 1870 
1600  I FPR=2THEN 1 630 
1610  IFPY<RTTHEN2120 

1 620  LETPV=0 : GOSUB 1 660 : GOSUB590 : NEXTUY : L 

ETPR=2:GOTO910 

1630  I FPY<RTTHEN2 1 20 

1 640  LETPV=0 : GOSUB 1 660 : GOSUB590 : NEXTUY 
1650  GOTO 1870 

1660  POKEV+21 ,95:FORT=1TO2000:NEXTT :RETU 


;PG 

1680  RETURN 

1 690  PR I  NT  "  !  HOM  3  C  9CRSRD  3  ! 39SPC  3  “  :  QO=0 
1700  I FPR=2THENP0KEV+44 , 0 : POKEV+42 , 0 :GOT 
01720 

1710  PRINT" ! HOM 3  I9CRSRD3 " , " IBLU3 " ; V$; "  - 
GET  REflDY" : GOTO 1730 

1720  PRINT” IH0M3 I9CRSRD3 " , " CBLU3 " ;W#;  "  - 
GET  REflDY" 

1730  FORT=1TO2000: NEXTT 

1740  PR  I  NT  ”  I CRSRU  3  C  38SPC  3  ”  :  RETURN 

1 750  PR  I  NT  "  I  HOM  3 1 2CRSR0  3  í  BLK  3  "  TAB  <  27  >  "  I R 

VS0N3  !  7SPC  3  "  ;  "  C  7CRSRL  3  "  ;  P  V 

1760  RETURN 

1770  PRINT"  C HOM 3  C 9CRSRD 3  "TflBC  10>  : INPUT" J 
UGflOOR  1 "  ;  V* 

1780  PRINT"!  CRSRU  3  C  38SPC  3  " 

1790  I FLEN  <  V*  >  >8THENV*=LEFT*< V*  ,  8  > 

1800  I FPL= 1 THENRETURN 

1810  PRINT" CH0M3 C9CRSRD3 "TAB! 103 : INPUT” J 
UGflDOR  2“ ;W* 

1 820  I FLEN < W* 3 >8THENW*=LEFT# <W*,8) 

1830  PR  I  NT  “  C  CRSRU  3  C  39SPC  3  “ 

1840  RETURN 

1 850  POKE2040  ,192:  FORCO=  1 2288T0 1 2350 :  REA 
DDC : POKECO , DC : NEXTCO 

1 860  POKEV , 40 : POKE V+ 1 , VY : POKEV+39 , 7 : POKE 
V+23,1 :P0KEV+29,1 : POKEV+2 1,1 : RETURN 
1870  GOSUB2690 

1 880  POKE53280 , 2 : P0KE5328 1 , 2 
1 890  PR  I  NT  ,  “  C  3CRSRD  3  "  V*  ;  "  :  "  ;  PU  "  PUNTOS  " 
1900  I FPU>RflNDPU>PGTHENSR=R : R=PU :PRINT," 

1 2CRSRD  3  I WHT  3 MUY  BIEN!  HAS  CONSEGUIDO" :G 

OTO 1920 

1910  GOTO  1 950 

1920  LETI*=V#: GOTO 1930 

1 930  LETVY=  1 00 :  LETUU=  1  :  GOSUB 1 850 :  PR  I  NT  ,  " 
C CR3RD 3 NUEVO  RECORD  'ARCO'..." 

1940  PRINT, "CCRSRD3CANTIGU0  RECORD SR ; 
"3“ 

1950  I FPU<PGTHEN 1 970 

1960  PRINT,"!  CRSRD  3  C  VEL  3  GANADOR  :  ";V* 
1970  IFPL=1THEN2050 

1980  PRINT, " I3CRSR03 IBLK3 "W#; "  : " ;PG? "PUN 
TOS" 

1 990  I FPG>PUTHENPR I NT , " ! CRSRD  3 ! YEL  3  GANAD 
OR:  ";W*:GOTO2000 

2000  I  FPG>RANDPG>PUTHENSR=R  :  R=PG  :  PR  I  NT  ,  " 

1 2CRSRD 3 1 WHT 3 MUY  BIEN!  HAS  CONSEGUIDO" :G 

OTO2020 

2010  GOTO2050 

2020  LETI*=W*:GOTO2030 
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2640  P0KE54278 , 243  s  P0KE54273 ,200 : P0KE542 
72,200 

2650  P0KE54276 ,  1 6  i  RETURN 
2660  F0RL=54272T054296  s  POKEL , 0  s  NEXT 
2670  P0KE54276 , 33 : P0KE54296 ,15: P0KE54277 
, 128 :P0KE54278, 128 :POKE54272,200 
2680  P0KE54273 , 200 sPOKE54276,0 :RETURN 
2690  PRINT" CHOMD “ sPRINTTHBC 1 1 V  C 1 1CRSRD] 
CBLKIG  fi  M  EC4SPC30  V  E  R" 

2700  RESTORE : GOSUB50 : PRINT"! CLR I " : POKEV+ 
21,0. -RETURN 

2710  PR I  NT  "  C  HOM I C  VEL  3  E  9CRSR0 1 C  CRSRR  3  LO  S 
IENTO,  NO  HAS  SUPERfiDO  Lfi  PRUEBR “ 

2720  FORT=0TO 1 6 : FORVV= 1 TO50 : NEXT W : POKEV 
+42 , T : NEXTT : I FPL= 1 THENPOKEV+42 , 1 0 
2730  PRINT" ECRSRUJC38SPC3" : RETURN 
2740  FOROS= 1 T03 : Z=Z-8 : POKE V+ 1 4 , Z : FORT= 1 T 
030 : NEXTT iNEXTOS :POKEV+14,0 : RETURN 
2750  LETLP=0 :  RESTORE  :  GOSUB50 
2760  POKEV+40,4  sPOKEV+28,40 :P0KEV+23,68 : 
POKEV+29,84 

2770  F ORSW= 1 2352T0 1 24 1 4  s  LETLP=LP+ 1 

2780  F  J  <  LP  >  =PEEK  <  SW  > : RERDWS : POKESW , WS 

2790  NEXTSW:LETGR=1 : RETURN 

2800  LETUI=Y+1 1  s  I FRBS < U I - 1  > >  1 2THENRETURN 

2810  I  Ffl<40RR>6THENRETURN 

2820  LETP=750: GOTO 1340 

2830  END 


Recolocar  registros 

_ C-64,  VIC-20,  128  (Modo  64) _ 


Es  sabido  que  cuan¬ 
do  se  dedice  abrir  un 
fichero  es  difícil  con¬ 
cretar  los  límites  de 
su  capacidad,  que  eri 
la  mayoría  de  los  casos  crece  y  crece  desmesuradamente  hasta  hacerse 
poco  manejable,  precisando  sucesivas  ampliaciones.  En  los  casos  de 
ficheros  definidos  por  ordenador,  y  más  si  se  trata  de  bases  de  datos 
salvadas  en  cinta,  se  juega  por  otra  parte  con  la  capacidad  de  memo¬ 
ria  del  ordenador  utilizado,  que  es  la  que  decide  generalmente  la 
facilidad  de  acceso  al  fichero  de  datos. 

Por  ello  hemos  intentado  realizar  un  programa  que  facilitando  la 
recolocación  de  los  registros  o  fichas  que  componen  una  base  de 
datos  permitan  un  acceso  más  fácil  a  las  mismas. 

El  programa  que  hemos  desarrollado  se  ajusta  a  la  base  de  datos 
“Datafile”  y  es  aplicable  tanto  al  C-64  como  al  VIC-20  ó  a  otro 
ordenador  que  maneje  el  “Datafile”. 


Su  razón  de  ser  es  que  cuando  la  base  de  datos  alcanza  la  capacidad 
de  memoria  de  la  máquina  y  existen  nuevos  registros  que  añadir  a  la 
misma,  se  hace  preciso  abrir  un  nuevo  fichero  que  ya  no  es  manejable 
conjuntamente  con  el  anterior.  Si  al  crear  el  “datafile”  este  supuesto 
es  previsible;  se  puede  entonces  abrir  a  la  vez  tantos  ficheros  como  se 
estime  preciso  para  cubrir  la  totalidad  de  la  base  de  datos,  en  función 
de  algún  campo  significativo  de  la  misma,  fácilmente  clasificable,  e  ir 
introduciendo  cada  ficha  en  su  respectivo  fichero. 

Por  ejemplo,  si  deseamos  manejar  un  fichero  de  clientes,  pacientes 
o  cualquier  otro  carácter,  en  el  que  uno  de  sus  campos  es  la  fecha  de 
nacimiento,  o  el  orden  alfabético  de  los  apellidos  o  lo  que  sea,  y  es 
previsible  que  el  tamaño  de  tal  fichero  llegue  a  desbordar  la  capacidad 
de  memoria  de  la  máquina,  es  posible  desde  el  principio  calcular  su 
amplitud  y  abrir  diversos  ficheros,  por  ejemplo,  por  año  o  década  de 
nacimiento,  o  inicial  de  los  apellidos  u  otra  característica  significativa 
de  la  ficha  e  ingresarla  en  base  a  tal  carácter  en  su  correspondiente 
fichero. 

Pero  al  final  la  base  de  datos  se  completará  en  algunos  de  sus 
ficheros  iniciales  y  nos  volveremos  a  ver  de  nuevo  en  la  necesidad  de 
intentar  su  ampliación  a  través  de  una  nueva  reclasificación  de  fichas. 
Da  lo  mismo  que  sea  un  solo  fichero  el  que  se  divide  en  otros  varios  o 
que  sean  varios  los  que  se  unifican  en  uno  solo,  pues  nuestro  pro¬ 
grama  es  capaz  de  diferenciar  este  matiz.  Lo  único  que  precisa  es 
saber  cuántos  ficheros  van  a  ser  reclasificados,  cuántas  nuevas  clases 
van  a  constituir  la  nueva  base  de  datos  y  cuáles  van  a  ser  los  límites  de 
esas  clases,  pues  cada  nueva  clase  constituirá  un  nuevo  fichero.  De  ahí 
la  necesidad  de  calcular  con  precisión  los  límites  de  las  clases  de 
acuerdo  con  nuestras  necesidades. 


Elección  de  los  límites  de  las  clases 

En  esencia,  el  dato  contenido  en  un  determinado  campo  del  regis¬ 
tro  puede  ser  cualitativo  o  cuantitativo.  Datos  cuantitativos  son  los 
que  expresan  una,  cantidad  (ejemplo,  valor  de  coste  en  pesetas  de  un 
determinado  artículo,  puntuación,  o  score  alcanzado  en  una  prueba, 
estatura  en  cm.,  peso  en  kg.,  etc.).  Datos  cualitativos  son  los  que 
expresan  la  posesión  o  ausencia  de  una  cualidad  (ejemplo,  el  color  de 
los  ojos,  la  última  enfermedad  padecida,  la  marca  del  automóvil  que 
hemos  comprado,  etc.). 

Los  datos  cualitativos  pueden  ser  transformados  en  cuantitativos 
mediante  la  aplicación  de  un  código  numérico  para  cada  caracterís¬ 
tica  y  como  tales  números  ser  clasificadas,  puesto  que  las  cantidades 
llevan  implícito  el  carácter  de  orden  para  poder  clasificarlas. 

De  ahí  el  interés  de  elegir  bien  el  formato  de  los  datos  a  introducir 


Jesús  García  de  Jalón  Sanz 
Tel.  (948)  25  17  48 
Avd.  Sancho  el  Fuerte,  71,  9°,  F. 
31007  Pamplona _ 
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en  la  ficha.  Las  fechas,  por  ejemplo,  conviene  introducirlas  en  el 
formato  de  6  cifras  AAMMDD,  2  para  el  Año,  2  para  el  Mes  y  2  para 
el  Día,  en  este  orden,  para  que  obviamente  puedan  ser  clasificadas 
bien  por  el  año,  año  y  mes,  o  toda  la  fecha. 

Sin  embargo,  el  ordenador  es  capaz  de  ordenar  y  por  consiguiente 
puede  clasificar  cadenas  de  literales,  pues  cada  carácter  contiene  un 
código  ASCII,  que  lo  identifica  según  un  número  de  orden  y  el  “Data- 
file”  maneja  tanto  los  datos  cualitativos  como  cuantitativos  como 
cadenas  literales  y  como  tales  pueden  ser  ordenados,  y  por  tanto 
clasificados.  De  hecho  este  es  el  mecanismo  de  ordenación  que  utiliza 
el  programa  principal,  en  la  variedad  de  ordenar  en  orden  ascendente 
mediante  la  comparación  ,=,^)  de  literales. 

Veamos  cómo  podemos  utilizar  esta  propiedad  del  ordenador  para 
reclasificar  un  fichero  o  una  base  de  datos. 

Mientras  se  van  introduciendo  registros  en  la  base  de  datos  y  la 
capacidad  de  memoria  del  ordenador  se  va  saturando,  llega  el 
momento  en  que  hemos  de  plantearnos  la  necesidad  de  ampliación 
del  fichero,  pues  todavía  quedan  numerosos  registros  que  introducir. 
Podemos  estimar  por  consiguiente  que  nuestra  base  de  datos  constará 
si  no  se  vuelven  a  hacer  nuevas  ampliaciones,  de  n  ficheros.  Suponga¬ 
mos  que  en  la  base  de  datos  existe  un  campo  tal  como  el  color  del 
cabello  que  es  de  interés  para  nosotros  y  que  lo  hemos  de  manejar  de 
continuo  en  asociación  a  otros  campos  del  registro.  Este  campo,  pues, 
puede  servir  para  la  clasificación.  Después  de  la  reclasificación,  cada 
registro  que  entre  en  la  base  de  datos  podrá  hacerlo  en  el  fichero 
correspondiente  a  los  de  su  propia  clase,  o  en  cualquiera  otro  que  no 
esté  completo,  puesto  que  una  nueva  reclasificación  con  idénticos 
límites  de  clase  lo  volverá  a  colocar  en  su  correspondiente  fichero. 

Una  revisión  del  fichero  nos  indica  que  los  datos  recogidos  para  el 
color  del  cabello  abarca  los  siguientes  caracteres:  rubio,  amarillo, 
pelirrojo,  negro,  castaño,  blanco,  albino. 

La  primera  pregunta  que  cabe  hacerse  es  si  esas  denominaciones 
corresponden  a  diferencias  reales  en  el  color  del  cabello  o  son,  por  el 
contrario,  matices  que  pueden  ser  incluidos  bajo  la  misma  denomina¬ 
ción.  Por  ejemplo,  decir  que  el  color  del  pelo  es  amarillo  no  parece  ser 
algo  que  podamos  admitir  como  diferente  al  pelo  rubio.  En  el  mismo 
sentido  podemos  entender  los  caracteres  albino  y  blanco.  Decidimos 
que  amarillo  es  igual  a  blanco  y  que  albino  presenta  ciertas  connota¬ 
ciones  que  le  hace  ser  diferente  del  blanco.  Se  hace  necesario,  pues 
modificar  en  la  base  de  datos  ese  carácter:  amarillo=rubio,  sustitu¬ 
yendo  a  través  de  la  opción  “Modificar  registros”  el  dato  amarillo  y 
poner  en  su  lugar  rubio.  Así  pues  los  diferentes  colores  a  clasificar 
son:  rubio,  pelirrojo,  negro,  castaño,  albino  y  blanco.  La  ordenación 
como  literales  según  el  código  ASCII  sería  en  orden  ascendente: 
albino<^ blanco  <castaño  ^negro^ pelirrojo  <^rubio  <V 

Pero  decidimos  poner  en  el  mismo  fichero  los  registros  con  el  carác¬ 
ter  albino  y  el  carácter  blanco  bien  por  tener  significados  próximos, 
bien  por  su  rareza  (lo  que  hará  que  su  capacidad  sea  suficiente).  El 
número  definitivo  de  clases  es  de  5  y  sus  límites  respectivos  son,  pues: 

— Para  la  primera  clase,  que  contendrá  los  registros  con  los  datos 
albino  y  blanco,  el  límite  superior  lo  constituye  el  primer  registro  que 
contenga  el  carácter  “castaño”.  Cualquier  literal  que  resulte  “menor” 
que  “castaño”  pertenecerá  a  esta  clase,  de  forma  que  no  es  preciso 
establecer  límite  inferior.  Incluirá  por  ello  las  características  “albino” 
y  “blanco”. 

— Para  la  segunda  clase,  el  límite  inferior  lo  constituye  el  primer 
elemento  que  contenga  “castaño”,  el  cual  pertenece  a  la  clase,  y  el 
límite  superior  será  el  primer  elemento  que  contenga  en  este  campo  el 
literal  “negro”,  que  pertenecerá  a  la  clase  tercera.  No  incluirá  ningún 
registro  con  otra  característica  que  el  color  castaño. 

— Para  la  tercera  clase  el  límite  superior  lo  constituirá  el  carácter 
“pelirrojo”  e  incluirá  exclusivamente  el  carácter  negro,  que  es  preci¬ 
samente  su  límite  inferior  perteneciente  a  la  clase. 

—Para  la  cuarta  clase  su  límite  superior  lo  constituye  el  carácter 
"rubio”,  que  no  pertenece  a  la  clase,  y  por  último. 

—Para  la  última  clase,  en  este  caso  la  quinta,  el  carácter  ha  de 
establecer  el  límite  superior  ya  que  cualquier  elemento  “mayor”  que 
“rubio”  va  a  pertenecer  a  esta  última  clase. 

Otro  ejemplo,  respecto  a  la  clasificación  de  datos  cuantitativos, 
será  dado  a  continuación:  el  de  las  clases  resultantes  de  dividir  el 
campo  fecha  de  nacimiento,  en  décadas  (por  ejemplo). 

Imaginémonos  que  las  fechas  vienen  recogidas  en  el  formato 
AAMMDD,  en  el  que  090831  quiere  decir  que  nació  el  31  de  agosto 
de  1909,  no  existiendo  en  la  base  de  datos  fechas  anteriores  a  1900  ni 
posteriores  a  1933. 

Las  clases  resultantes  serán  estas  (décadas): 


Clase  1,  nacidos  antes  de  1910. 

Clase  2,  nacidos  en  1910-1919. 

Clase  3,  nacidos  en  1920-1929. 

Clase  4,  nacidos  en  1930  y  después. 

Y  los  límites  significativos  de  estas  cuatro  clases,  representados  por 
dos  límites  superiores  de  clase  serán: 

1910  para  la  primera  clase.  Es  necesario  introducir  el  10, pues  estas 
2  cifras  son  las  significativas  para  el  año  según  el  formato  AAMMDD 
en  que  se  introducen  las  fechas.  En  realidad,  la  cifra  que  sería  el  límite 
real  de  clase  sería  100101  correspondiente  al  1  de  enero  de  1910  y 
puede  ser  introducida  igualmente  como  límite  de  clase. 

1920  para  la  segunda  clase.  Introducir  el  20. 

1930  Para  la  tercera  clase.  Introducir  el  30. 

Es  decir,  que  si  existen  n  clases  son  suficientes  n-1  límites  de  clase: 
la  primera  clase  comprenderá  todos  los  registros  hasta  el  primer  ele¬ 
mento  de  la  clase  segunda,  y  así  sucesivamente.  De  este  modo  el 
límite  superior  de  una  clase  lo  constituye  el  primer  elemento  de  la 
clase  inmediata,  o  lo  que  es  lo  mismo,  cualquier  elemento  de  una  clase 
es,  en  términos  de  orden  ASCII,  menor  que  el  elemento  señalado 
como  su  límite  superior,  el  cual  constituye  el  primer  elemento  de  la 
clase  inmediata. 

Aunque  la  explicación  de  la  elección  de  los  límites  de  clase  haya 
resultado  demasiado  prolija,  hemos  considerado  que  era  necesario 
hacerlo  porque  si  no  se  llega  a  comprender  bien  el  mecanismo  de 
exclusión  en  la  formación  de  clases,  los  nuevos  ficheros  formados  no 
responderán  a  nuestro  deseo.  Esperamos  haberlo  conseguido. 

NOTA  FINAL:  Cuando  son  varios  los  ficheros  a  reclasificar  es  conve¬ 
niente  que  estén  contiguos  en  la  cinta,  para  poder  desentenderse  de 
la  marcha  del  programa  hasta  que  se  termine  la  revisión  del  último 
fichero.  Pero  si  los  ficheros  viejos  no  guardan  en  la  cinta  esta  contigüi¬ 
dad  deseada  será  preciso  que  el  programa  se  pare  para  disponer  la  cinta 
manualmente  a  la  altura  del  siguiente  fichero  a  recolocar.  En  este  último 
caso  es  preciso  insertar  una  nueva  línea  en  el  programa  que  lo  haga 
(idéntica  a  la  línea  112). 


5  REM  *##  RECOLOCAR  'DATAFILE' 

10  PR I  NT  "  I CLR 3  I RVSQN 3 RECOLOCAC I OH  DE  FIC 
HASCRVSOFF3” :PRINT"  EN  FUNCION  DEL  CAMPO 
DE  LA  BRSE  DE  DATOS I 3SPC 3  "  ; 

12  PRI  NT  "ELEGI  DO  SE  PRRTE  EL  C  3SPC 1 RRCH I V 
O,  COMPUESTO  DE  UNO  O  VRRIOS  FICHEROS,"; 
14  PRI NT “SEGUN  RLGUNR  CRRRCTE-  RISTICR  D 
EL  CAMPO  C  5SPC I SUSCEPT I  BLE  DE  SERC4SPC30R 
DENRDR.  " 

16  PR  I  NT "  C  CRSRD I  CRDR  CLRSE  SE  CONS-C2SP 
C3TITUIRA  EN  UN  NUEVO C3SPC I FICHERO. C2CRS 
ROI" 

18  GOSUB26 

20  CR*=CHR*< 1 3) :D*=CHR$<0> :NF*=D* :ES="EO 
F“ 

22  1=0: J=0sL=0;K=0sM=0:TX=0:CK=0 
24  GOTO  60 

26  PRI NT"  [ R VSON  3 1 2SPC 3  PULSA  UNA  TECLA I 2 
SPC  3 1 R  VSOFF  3  " 

28  GETR*  :IFA*= "  THEN28 
30  RETURN 

32  REM  — SUBRUTINRS  DE  CLASIFICACION 
34  REM  — CONSTITUCION  DEL  FICHERO  NUEVO 
CON  LOS  REGISTROS  QUE  PERTENECEN  A  LA  CL 
ASE 

nV'TO-  :FORN=1TOfr  :REC*<K,N>=ñR*(N)  :NEXT 
38  RETURN 

40  REM  — OECIOE  SI  LA  FICHA  PERTENECE  A 
LA  PRIMERA  CLRSE 

42  IFHCSt 1 >>LEFT4<RR$<SF> ,LEN<HC4< 1 >  >  > TH 
ENGOSUB3 6 
44  RETURN 

46  REM  — DECIDE  SI  LA  FICHA  PERTENECE  A 
LA  CLASE  INTERMEDIA  DEFINIDA,  I 
48  IFHC*<  I  Í>LEFT*<AR*<SF)  ,LEN<HC*<  I  )  >  >AN 
DHC* <  I - 1  >  OLEFT* <  AR* <  SF >  , LEN < HC* <  I  - 1  >  >  )  T 
HENG0SUB36 
50  RETURN 

52  REM  — DECIDE  SI  LA  FICHA  PERTENECE  A 
LA  ULTIMA  CLASE 

54  I FHC* < NC- 1 ) <=LEFT* <RRÍ(SF>  , LEN<HC<<NC 
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4  F0RJ=1T0X  : PRINT"  ÍCRSRD3LEVEND0  PUNTE 

5  : “ :PRINT“PUNT.  NIC0MMV3  :";J;"Í3CRSR 
“  :INPUT#1,TX:NEXTJ 

■=:  INPUT#1  ,E* : GLOSE l 
¡  NEXTL 

I  X=K:PRINT“!CLR3!CRSRD3  IRVS0N3SALVAR 
I CHERO  !  RVSOFF  3 " ; I 

!  PRINT" CCRSRD3  NOMBRE  NUEVO  FICHERO?" 
!  INT “ ! 2SPC  3 " ; HC*  <13:1 NPUT " !  CRSRU  3" ;NF* 


-13  3  >THENG0SUB36 
56  RETURN 

58  REM-  CRRGRR  CRMPOS 

60  PR I NT " ! CLR  3 !  CRSRD  3  PREPRRR  LR  CINTRCC 
RSRD3" : PRINT"  CAMPOS  DEL  FICHERO! 3SPC3 <C 
URLQUIER  F I CHERO  C  5SPC  3  S I RVE 3  C2CRSR03 “ 

62  G0SUB26 
64  OPEN1,1,0 

66  INPUT41 ,NF*,R,F,X :DIMF*<F+1 3 ,LX<F+1 3 , 
RR*<F+13 

68  F0RN=1T0F:INPUT#1,F*<N3,LX<N3 :NEXT 
70  CLOSE1 

72  PR I NT " ! CLR  3  C  CRSRO  3  CRVSON3  CAMPO  R  CL 
RS I F I CRR  C  RVSOFF  3  C  2CRSR0 3 “ : FORN= 1 TOF 
74  PRINT"  C RVSON 3  "  z  N  ;  "  ! RVSOFF 3  " ;F#<N> :N 
EXTN 

76  INPUT" CCRSR03CRMP0  ELEGIDO?  0  C4CRSRL 
3“;SF 

78  I FSF< 1 ORSF>FTHENPR INT"! 3CRSRU 3 " : GOT07 
6 

80  PRINT"! CLR 3! CRSRO 3  NCCOMMV3  FICHEROS 
ANTIGUOS^" :  PR  I  NT  "  ?  !  3SPC  3 1 3CRSRL  3  "  ;  N I  :  I NP 
UT" CCRSRU3 " “NI 

82  PR INT"! 2CRSRD 3 MAX I MO  NCC0MMV3  ESTIMAD 
O  DE  REGISTROS  EN  ALGUNO C3SPC 3 OE  LOS  FIC 
HEROS?  C  CRSRD  3  " 

84  PR  I  NT  "  ?  !  3SPC  3  !  3CRSRL  3  "  R  :  I  NPUT  "  !  CRSRU 
3  "  ,-R 

86  PR I NT " C  2CRSRD  3  NCCOMMV3  CLASES  NUEVAS 
7CCRSRD3" :PRINT“?C3SPC3C 3CRSRL  3 " ; NC : I NPU 
T" CCRSRU3 " ;NC 

88  PRINT"! CLR 3! CRSRD 3  NICOMMV3  DE  CLASES 
“ ; NC : I FCK= 1 THEN92 

90  DIM  RECí<R+l,F+13,KJ«R+13,HC*<NC+13 
92  PRINT"  ICRSRD3  I RVSON 3 EL I GE  LOS  LIMITE 
S" 

94  PRINT"!  HOM  3 1 5CRSRD  3  "  ;  :  FOR J=  1 TONC- 1 
96  PRINTTAB<53" ! RVSON 3 CLASE! RVSOFF 3 " 3 J 3 : 
PR INT"! 2CRSRD  3 " 

98  PRINTTAB<5> " CCRSRU3 LIMITE  SUPERIOR?": 
PRINT"?  >!2SPC3 I3CRSRL3" ;HC#< J> 

1 00  I FLEN  <  HCÍ  <  J  > >  > 1 8THENPR I NT “ ! CRSRU  3 " ; 
102  INPUT" !CRSRU3";HC*<J> 

104  NEXT 

106  PRINT" ICLR3ICRSRD3  QUIERES  CORREGIR? 
! CRSRD  3 1 8SPC  3 1 RVSON  3  S ! RVSOFF  3  O  I RVSON 3 N 
! RVSOFF 3“ 

1 08  G0SUB28 : I FA*= " S " THENCK= 1 : GOTO80 
110  FOR  1  =  1  TONC 

112  PRINT"! CLR 3! CRSRD 3  PREPARA  LA  CINTA. 

" :PRINT"  REVISION  FICHEROS! CRSRO 3 “ :GOSUB 
26 

114  K=0:FORL=1TONI 

116  PRINT" ICLR3ICRSRD3  ! RVSON 3FICHEROIRV 
SOFF3 " ;L :PRINT 

118  OPEN1,1,0:INPUT#1,NF*,M,F,X 

120  PRINT"  !RVSON3";NF*;"IRVSOFF3" :FORN= 

1TOF  : INPUT#1 ,F*<N>  ,LJ¡<N>  :NEXT 

122  FORJ=lTOX :PRINT" ICRSRD3LEVENOO  REGIS 

TROS:" :PRINT"REG.  NICOMMV3  : " ; J; "I3CRSRU 

3“ 

1 24  FORN= 1 TOF : I NPUT# 1 , AR* <N> : NEXTN 

126  IF  1=1 THENG0SUB42 : GOTO 1 32 

128  IF  I>1RNDI<NC  THEN  G0SUB48 : GOTO  132 

130  G0SUB54 

132  NEXTJ 
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Carlos  Hernández  Sanz  grama  podemos  ob- 

C/Gabriela  Mistral,  10.  Ia  D  fener  e,  cuadro  de 

28035  MADRID  amortización  de  un 

— ; - — 1  préstamo  para  cuya 

elaboración  hemos  de  introducir  previamente  los  datos.  Los  datos  a 
introducir  son:  Importe  del  crédito,  tiempo  de  amortización  en  años, 
tipo  de  interés  en  tanto  por  ciento  anual  y  periodicidad  de  la 
amortización,  pudiendo  ésta  ser  anual,  semestral,  trimestral  o 
mensual.  El  cuadro  de  amortización  se  elabora  por  el  procedimiento 
de  anualidad  (o  mensualidad,  etc.)  constante,  por  lo  cual  previamente 
a  la  elaboración  del  cuadro,  nuestro  ordenador  calcula  dicha 
anualidad,  mensualidad,  etc. 

Al  ejecutar  el  programa  nos  solicita  por  pantalla  la  imputación  de 
los  datos  reseñados  y  por  ese  mismo  orden.  Al  introducir  el  último 
dato  y  pulsar  RETURN  por  la  pantalla  el  siguiente  encabezamiento: 


PAGO  AMORTIZACION  INTERES  TOTAL  CAPITAL  PENDIENTE 


á  /esTo.,) 

?ue zuda.  Qu&tiTos  ^ 
t  hace  atoe  */os  Á 

i  7 

l* Utos  3  r\ 

Ir 


i to/j  hzsz 


En  la  primera  columna  aparece  el  orden  de  los  pagos  (primer  mes, 
primer  trimestre,  primer  semestre  o  primer  año,  2,  2°  id.,  etc.),  en  la 
segunda  columna  el  capital  amortizado,  en  la  tercera  los  intereses,  en 
la  cuarta  el  total  —que  corresponde  a  la  anualidad,  etc.  constante  y 
será  siempre  idéntica  salvo  redondeos—  y  finalmente  en  la  quinta  el 
capital  pendiente  después  del  pago  de  ese  período. 

Si  el  número  de  períodos  sobrepasa  los  14,  no  nos  cabrán  todos  los 
datos  simultáneamente  en  pantalla.  En  tal  caso,  se  conserva  el  enca¬ 
bezamiento,  para  tener  en  todo  momento  a  la  vista  los  datos  del 
préstamo,  “saliendo”  de  pantalla  los  datos  de  las  amortizaciones  más 
antiguas  y  “entrando”  por  la  parte  de  abajo  las  recientes. 


■  Q 


OLABORACIONES 


144  PRINT"! CRSRD 3  PREPflRfi  Lfi  CINTRCCRSRD 

]'•  :GOSUB26  SPRINT"  CCRSRDI  "  :0PEN1,1,1 

146  PRINT#1,NF*;CR*;R;CR*;F;CR#;X:F0RN=1 

TOF :PRINT#1 ,F*<N> ;CR*;LXCN> sNEXTN 

148  FORJ=1TOX SPRINT" CCRSRDI GRBBHNDO  REGI 

STROS:"  sPRINT‘'REG.  NCCOMMVI  : "  ;  J;“ C3CRSR 

UI" 

1 50  FORN= 1  TOF !  PR  I  NT#  1 ,  REC*  <  J  ,  N  >  :  NEXTN  :  NE 


152  FORJ=lTOX :PRINT“ CCRSRDI  GRRBRNDO  PUNT 
EROS  s":PRINT”PUNT.  NCCOMMVI  “  ;  J;  “  C3CRS 
RUI"  :PRINT#1,KJÍ<J>  :NEXTJ 
154  PRINT#l,E$:CLOSEl 
156  NEXTI 

158  PRINT" CCLR3 CCRSRD3  PROGRRMR  FINHLIZR 
DO” :PRINT“ CCRSRDI  LRS  FICHRS  HRN  SI00C3S 
PC I RECOL OCRDRS  EN";NC 
160  PRINT"  FICHEROS" :END 


Al  finalizar  la  ejecución  del  programa,  permanecen  indefinida¬ 
mente  los  datos  en  pantalla.  Si  pulsamos  RETURN  vuelve  a  la  posi¬ 
ción  inicial  de  esperar  datos  para  un  nuevo  cuadro.  Si  pulsamos 
cualquier  otra  tecla,  termina  y  queda  en  posición  “READY”.  Si  pul¬ 
samos  RUN  en  tal  posición,  vuelve  a  ejecutar  el  programa. 


1 0  COLOR0 , 1 : COLOR 1,2: C0L0R4 , 1 
20  PRINT" CCLRI” 

30  PRINT" CCRSRDI t 12CRSRRIPETICI0N  DE  DRT 
OS" 

40  INPUT"C2CRSRD1C2CRSRR1  IMPORTE  DEL  CRE 
DITO" ;C 

50  I NPUT  "  [  CRSRD  3  C  2CRSRR I T I EMPO  DE  RMORTI 
ZRCION  EN  RN  C  CRSRU I C  CRSRL I C  COMM0 1 C  CRSRD I 
OS";N:S=N 

60  INPUT" CCRSRDI C2CRSRRI INTERES  EN  X  RNU 


70  PRINT" CCRSRDI C2CRSRRDPERI0DICIDRD  DE 
RMORT 1 ZRC I ON  " 

80  PRINT" CCRSRDI C12CRSRR II.-  RNURL" 

90  PRINT" C12CRSRRI2.-  SEMESTRRL “ 

100  PRINT" C12CRSRRI3.-  TRIMESTRRL" 

110  PRINT" C12CRSRRI4.-  MENSUAL " 

120  INPUT"  CHOMI C32CRSRR1 C9CRSRDI C2CRSRD1 


150  IFH=3THENI=IX400:Rí=" TRIMESTRAL" :N=N 


PROGRAMAS 
MUY  RENTABLES 


BLOQUEO  PARA  PRESER¬ 
VAR  ,EL  COPIADO  PIRATA 
DE  PROGRAMAS 

PROGRAMA  PARA  PONER 
INSERCIONES  Y  TITULOS 
EN  CINTAS  DE  VIDEO 


QUINIELA  HIPICA 


Séquito  A 
Séquito  B 
Séquito  B1 
Séquito  B2 
Séquito  B5 
Séquito  H9 

Cada  programa  dispone  de  un 
CON  MOVIMIENTO  VERTICAL  V 
LEYENDA  2.000  LETRAS. 

PROGRAMAS  TITULADORES  Y  DE  POSIBLE  INSERCION 
EN  CINTAS  DE  VIDEO 

P.V.P. 

STAD  20  5.500  BETA1 

STAD  21  5.500  BEJÁ2 

STAD  22  5.500  BETAS 

STAD  23  5.500  BETA4 

PROGRAMAS  SICOLOGICOS 
LIMEN  4.500  Ptas.  Es  un  juego  basado  en  la  técnica  SUBI! 
influye  sicológicamente  en  el  operador  para  que  piense  el  n 


erorte  Irecuencm  di 
liten  los  elementos.  Tiene  aplicaciones  en  medicina  asi  como  la 
in  del  sitio  donde  se  encuentra  un  ser  viviente.  Este  programa  lie 
is  muy  irregulares,  por  el  momento  no  está  a  la  vuelta. 


Cada  programa  se  manda  contra  reembolso  más  200  Ptas.  c 

gastos  de  envío.  Pueden  hacer  los  pedidos  por  correo  o  bien 

UNICO  TELEFONO:  21  53  48 

Autor  Jaime  Salom  Bosch 

Distribuidor  exclusivo  CENTRAL  COPISTERIA 

Olmos,  44.  PALMA  DE  MALLORCA 


C  I  OLABOR  ACIONES 


PRINT" CCLRX “ 

PR I NT " C  CRSRD X X 9CRSRR X CUADRO 


W1=LEN>S 

PRXNTSPC 


> I NT “ C CRSRD  X  C  CRSRR ICRPI 


PR I NT " C  CRSRR  X  T I EMPO  :  "  ;  S  ;  "  RN  C  CRSRU  X  I 
ÍL I  C  COMM@ X C CRSRD X 0S “ 

PR  I  NT  '•  C  CRSRR  X  X  NTERES  s  "  ;  R  ;  “  *  ANUAL  “  ; 
?2> "PERIOD. :";fl* 

PR I NTSPC  <  32  > “ C CRSRD  X  CAP I TRL " 

PRINT"  PHGO  RMORTIZ.  I NTERES C2SPCX Ti 


13) THENRUN 


:IFJ*=CHR*C1 
'"THEN480 
1  CCLRX " :END 


íSOíw* 

A  LA  VENTA 

íl" 

KIOSC 

OS 

AHORA  USTED  TAMBIEN... 


puede  acceder  a  la  tecnología  C.A.D.  para  los  diseños  asistidos  por  su  ordenador  personal:  Commodore-64, 
Spectrum-Plus,  QL,  etc. 

Y  de  un  modo  sorprendentemente  económico  con  el  plotter  de  ROLAND  DG  modelo  DXY-101. 

O,  si  desea  diseños  más  complejos  y  a  varios  colores,  con  el  plotter  de  ROLAND  DG  modelo  DXY-800. 


Area  efectiva  de  dibujo:  EjeX:350mm.  Eje  Y:  260  mm.  Suministro  de  potencia:  Adaptador  AC 

(DIN  A3)  (DC+9V,  +28V en  modo  operacional) 

Velocidad  máxima  de  dibujo:  180  mm/seg.  Consumo  de  potencia:  20  W.  en  modo  operacional. 

Resolución:  0,lmm/paso.  ±  1%.  Dimensiones:  496mmx435mmx77mm. 

Repetibilidad:  ±  0,3  mm.,  o  menos.  Peso:  4,3  kgs. 

Plumas,  DXY-101:  lnegro.  Accesorios:  8  plumas  especiales.  Asiento  magnético 

DXY-800:  8negro,  rojo,  azul,  verde,  púrpura,  para  sujetar  el  papel.  4  soportes  de 

marrón,  naranja  y  rosa.  plumas.  Adaptador  AC.  (en  DXY-800) 

(soluble  al  agua,  plumas  de  punta  1  pluma  especial.  Asiento  magnético 

de  fibra.)  para  sujetar  el  papel.  2  soportes  d^ 

Conmutadores:  Potencia,  Pluma  up/down,  Home,  se-  plumas.  Adaptador  AC.  (en  DXY-101) 

lector  de  Velocidad,  selector  de  Bit.  Opciones:  Diversas  plumas  para  todo  tipo  de  su- 

LEDs:  Potencia/error  (centelleo).  Pluma  up.  perficie.  Estilógrafos  a  tinta. 

ROLAND  DG  produce  también  una  amplia  gama  de  Plotters  para  trabajos  profesionales  y  Monitores  de  fósforo  y  color  de  media 
y  alta  resolución. 


Rolandl 


diseñamos  el  futuro 


vietronicsa 

División  de  Informática. 
Bolivia,  239 
Teléfono  307  47 12 
08012  BARCELONA 


. .  POR  U> 

Rincón ,  . 

del  Código  Maquina-VI 


j 


Por  Diego  ROMERO 


,  podrían  contarse  por  cente 

>  Tjnares  las  cartas  quehereci 
i  bido  en  la  redacción  de  la 

3  rlvista  pidiéndome  que  publicase 

alBún  programa  para  instalar  un 

>  “AUTO-RUN”  en  los  programas 
Basic  que  cada  uno  desarrolla. 

5  En  el  cursillo  de  lenguaje 

P  hacer  ejecutase  automáticam^e 

?  colocan d 

? 

tema  consiste  simplemente  en 
T>  Edificar  uno  de  los  vectores  que 
*  nuestro  ordenador  utiliza  para  su 
^  funcionamiento  y  que  se  encuen¬ 
tran  en  las  direcciones  hexaaeci 

tamos  el  programa  deseado. 

~  Para  ejecutar  un  programa  de 
gj>  Basfc  no  podemos  aplicar  la 

£  fessrsxs 

^  ^  avuda  del  intérprete. 

r P  El  sistema  correcto  para  poder 

^  «.¡prutar  un  programa  en  Basic 

Tn Teclear  aquello  de  “RUN”,  es 

SST una  rutina  de  lenge 

máquina  que  se  encarg 

zar  las  operaciones  equivalentes  a 

las  que  hace  el  intérprete  cuando 

tecleamos  RUN,  esto  es  simp^e- 
^  mente  hacer  un  salto  a  la  dire 
w  ción  $A7AE.  ,  ja 

^  Antes  de  poder  saltar 

^  ruina  que  hace  el  RUN,  debemos 

reajustar  los  punteros  que  sena- 

SrK  eytc.fde  todo  esto 


encarga  la  rutina  del  intérprete 
que  realiza  la  función  CLEAR, 
esta  rutina  se  ejecuta  normal¬ 
mente  cuando  hacemos  un  LO  AD 
en  modo  directo,  pero  si  lo 
hacemos  desde  el  modo  de  pro¬ 
grama  no  se  ejecuta  (de  aquí  vie¬ 
nen  los  problemas  con  los  over- 
W’  en  Basic).  Para  que  el 
programa  con  Auto-Run  insta¬ 
lado  funcione  correctamente  debe¬ 
mos  efectuar  el  CLEAR  haciendo 

una  llamada  a  la  subrutina 

$AE6n9el  listado  número  1  apa¬ 
rece  como  de  costumbre,  el 
código  fuente  del  programa  en 

estarán  interesados  en  este  P 

sísr.’fi* 

S  te  incluido 

.i 

teclear  se  dará  cuenta  de  su  error 

" t  línea  donde  lo  ha  com=..do_ 

De  este  modo  espero  que  el  pro 

Sama  le  funcione  a  la  primera  a 

nicas  a  la  redacción.  Si  alguie 
tuviese  problemas  pese 

incorporación  de  la  suma  de 

datos  puede  llamarnos  por  tele 

fono  y  se  lo  solucionaremos 

aunque  creo  que  con  el  cargador 


Basic  nadie  tendrá  problemas. 
Claro  que  como  toda  regla  ya  se 
«sabe  para  confirmarla... 

Un  detalle  importante  para 
aquellos  que  no  dispongan  de 
unidad  de  disco: 

Este  programa  funciona  sólo 

con  programas  en  disco,  los  que 

«sólo  tengan  el  datassette  deberán 

esterar  ouo  mes  a  que  prepare  el 

programa  AUTO-RUN  para  cinta. 
Todavía  no  lo  he  terminado, 

pío"™  .....  de  UU  p.og..|u. 

similar  a  este  y  espero  no  tener 

PC  Antes  de  ejecutar  el  programa, 
como  es  habitual,  debemos  guar- 
Harlo  en  cinta  para  utilizarlo 
posteriormente,  “pót  si  'as  mos" 


‘una  vez  guardado  podemos 

eie”«“„o(si8se.,...de.c.?.- 

S^iVeTSioo^ 

ejecutable  de  un  ensamblador. 
Cuando  lo  tengamos  en  memoria 

EJES  Une.  destellando  como 
®  tnPUT  que  es  exacta¬ 
mente  lo  que  está  haciendo.  Para 
continuar  debemos  introducir  el 
“orntee  completo  del  p.og..m. 

al  que  vamos  a  instalarle  el 
AUTO-RUN  y  antes  de  pulsar 
RETURN  colocar  el  disco  que  1 
mntiene  en  la  unidad. 

En  el  momento  que  Pu'semos 
RETURN,  la  rutina  de  código 

máquina  cargará  en  men.°na  el 
programa  deseado  y  Pedirá ^ 
cambiemos  el  disco  por _  otra 
Debemos  colocar  un  disco  qu 
no  contenga  ningún  programa 
con  el  mismo  nombre,  ya  que  si 
existe  alguno,  el  piloto  rojo  de  la 
unidad  destellará  dando  un  erro 

motivo  por  el  que  debemos 
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¿  1 

f  ^  teclea) 

utiliza 

(  ^  (asteri 

que  si 

^  ~  cuanc 

Pr08r 

(f  w  hacer 

másc 

Lista 

£y  * 
cr3 

- 

cK  a 

Sí 

I 

o'3 

I 


EXCURSION  p<«  LA  MICROPROGRAMAC.OH 

_ ,t-*«  cin  Para  cargar  la 


t^LURJIV^  i  — - -  ncionará 

teclear  el.  nombre  completo  sin  Para  ^uíoSun,  debemos  Espero  f*  “a^odofaquellos 
f^JS£¡5  es  Llar  LOAD  “NOMBRE  JU-  ^£e/proteger  de  alguna 

ShbsK  srss  “r,  £- — 


Listado  1:  Código  Fuente. 


““ ;  'gvsss^ss*"" 

*  DIEGO  romero 


[  20  20  20  NOMBRE 

4  aI  cfl  FF  lsbout 

9  A9  F1  ^  MSBOUT 
iB  80  2?  03 
>E  «9  0O 
;0  20  90  FF 
53  20  59  R6 
S6  4C  RE  R? 


*FFE7  r 
*FFCF  y 
♦FFE4  y 
*A659  y 
*A7AE  J 
*FF02 
*FF90 
*FFBA 
SFFBO 
*FF05 
*FF08 
=  *FC 

=  *FE 

#=  4C041 

.  ASC  “ 

JSR  CLRLL 
LOfl  #*CA 
STR  *0326 
LOR  #*f1 
STA  *0327 
LOR  #*00 
JSR  SETMSG 
JSR  CLERR 
JMP  EJERUN 
#=  *C100 


,  HRCER  UN  INPOT 
,  HRCER  UN  GET 
.  HACER  CLR 

’  vÍSÍSaHb  CARACTER 

.  ESPECIFICAR  NOMBRE 
,  HACER  LORD 

; 

.  EÍHRL  DE  PROGRAMA 

.  ESTfl  parte  SE  TRANSFIERE  r 
;  LAS  DIRECCIONES 
,  *0326-*03O0 

.  DESACTIVA  MENSAJES 

:  ¡SSKS'" 


SIS  £  H  «3  LAZO. 
C105  9D  00  C0 
C108  E8 
C109  E0  3C 
,  C10B  00  F5 

:  g?  2!  CF  FF  LAZ02 

C112  C9  00 
,  CU4  E0  00 
s  CU6  90  41  C0 
,  C119  E8 

,  C11A  E0  10 
;;  S;;ce£«»l«zo3 

j:  C121  AO  26  03 

i,  C124  80  55  C0 

á.  C127  AO  27  03 
I’:  C12A  80  5A  C0 

0:  C12OAO40C0 

0 1  C130  «2  41 

a-  C132  A0  c0 
-  C134  20  BO  FF 

C137  A9  01 


fUAROA  VECTORES  DEL  SISTEMA 

#*26  ;  guarda  V  hasta 

Sí 

#*3C 

,  if3*  ,  HACE  U«  -1NPUT-  DEL  «MEE 
|  «¿M  ,  ESPEER  UN  RETURM 

‘  S,«  ,  «*»  N0"eSE 

*  „„  ,  MAXIMO  1S  CARACTERES 

E  LAZ02 

X  NOMBRE- 1  VECTOR  DE  CHROUT 

«  SSn+x'  75  la  rutina  auto-start 
)A  *0327 

S  SSK  ;KSS5¡!W?3 

5  ÍSSSI  KSV  «abre 

*  fjT  ;  PARAMETROS  DEL  ARCHIVO 
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£ 

g 

W 

cr3 

| 

g 

g 

cr* 

cy 

cr3 

cy 

i 


EXCURSION  POR 


UA  microprooramaciqn  | 


1590! 

1600! 

1610: 

1620: 

1630: 

1640: 

1650: 

1660: 

1670: 

1680: 

1690: 

1700: 

1710: 

1720: 

1730: 

1740: 

1750: 

1760 

1770 

1780 

1790 


1910: 

1920: 

1930: 

1940: 

1950: 

1960: 

1970: 

1980: 

1998: 

2000: 

2010¡ 

2020 

2030 

2040 


2070 


C-139  02  08 
C13B  00  81 
C130  20  B0  FF 
C1 40  09  00 
C1 42  20  D5  FF 
C1 45  86  FE 
C147  84  FF 
C149  02  00 

C14B  BO  C4  C1  C0MBIO 

C14E  20  D2  FF 

C151  E8 

C152  E0  30 

C1 54  D0  F5 

C156  20  E4  FF  PULSO 

C1 59  C9  00 

C15B  F0  F9 

C15D  09  08 

C15F  20  90  FF 

C1 62  02  00 

C1 64  09  20 

.  C 166  90  00  84  LHZ04 
.  el 69  90  00  05 
:  C16C  E8 
.  C16D  00  F7 
:  C16F  02  00 
•  C171  80  F4  C1  LMZU5 

C174  20  D2  FF 
:  C177  ES 

:  C178  Es  27 

.  C170  00  F5 

C17C  09  51 
C17E  80  26  C0 
C181  09  03 
C1 83  8D  27  C0 
C186  02  26 
C188  BO  00  C0  L0ZO6 
C18B  90  00  03 
C18E  E8 
C18F  E0  00 
C191  00  F5 
C1 93  00  40  C0 
C196  02  41 
C198  00  C0 
C190  20  BO  FF 
C19D  09  01 
C-19F  02  08 
C101  00  01 
C103  20  80  FF 
C106  09  26 
C108  85  FC 
C100  09  03 
C10C  85  FO 
C10E  09  FC 

C1B0  06  FE 

.  C1B2  04  FF 

.  C1B4  20  08  FF 

'  C1B7  00  55  C0 

C1B0  80  26  03 

C1BO  00  50  C0 

C1C0  8D  27  03 

C1C3  60 


LDX 

LOV 

JSR 

LD0 

JSR 

STX 

STV 

LDX 

LO0 

JSR 

INX 

CPX 

BNE 

JSR 

CMP 

BEQ 

LD0 

JSR 

LDX 

LD0 

STB 

STB 

INX 

BNE 

LDX 

LD0 


;  NUMERO, F*ERI PERICO  V 

;  OIRECCION  SECUND0RIB 
•  0=LO0O/ 1 = VER I F V 


4*01 

SETLFS 
#$00 

F?N0L  ;  GUBRD0  DIRECCION  DE 

FIN0L+1  l  FIN  DE  PROGR0M0 

#$00  ;  VISUBLI20  EL  MENS0ÍE 

0VISO,X  ;  DE  C0MBIO  DE  DISCOS 
S«OUT  ;  EN  L0  P0NT0LL0 


#$30 

C0MBIO 

GETIN 

#$00 

PULS0 


SETMSG 

#$00 

#$20 


.  ENVIO  48  CBR0CTERES 
■  EN  TOT0L. 

.  ESPERO  QUE  PULSEMOS 
-  ALGUNO  TECL0 
,  SIGUE  ESPER0NDO . 

.  DES0CTIV0  MENS0JES 


-  LLENO  DE  ESP0CIOS  L0  P0NT0LL0 


2100: 

2110: 

2120: 

2130: 

2140: 

2150: 

2160: 

2170: 

2180: 

2190: 


LO0 

STB 

LD0 

STB 

LDX 

LOO 

STB 

INX 

CPX 

BNE 

LD0 

LDX 

LOV 

JSR 

LOO 

LDX 

LOV 

JSR 

L.00 

STB 

LD0 

STB 

LD0 

LDX 

LOV 

JSR 

LD0 

STB 

LD0 

STB 

RTS 


L0ZO4 
#$00 
1 1 TULO , X 
CHROUT 

#$27 

L0ZO5 

#$51 

$C026 

#$03 

$C027 

#$26 


COPIO  EL  TITULO  QUE 
;  SE  VISUBLIZBRO 
.  DUR0NTE  L0  C0RG0 

.  TOT0L  39  CBROCTERES 

.  PONE  VECTOR  DONDE  SE 
-  EJECUTO  EL  RUTO-RUN 
en  EL  VECTOR  DE 
•  SOLIDO  DE  CRRRCTERES 
;  COPIO  LOS  VECTORES 
;  DESDE  $C026 


#$D0 
L0ZO6 
NOMBRE -1 
#<NOMBRE 
#>NOMBRE 
SETN0M 
#$01  ’ 

#$08  ! 

#$0i  ; 

SETLFS  J 

#$26  ; 

PRINC  ; 

#$03  í 

PRINC+1 
#<PRINC 
F1N0L 
FINRL-H 
S0VE 
LSBOUT+1 
$0326 
MSBOUT+1 
$0327 


H0STB  $0300 

;  LONGITUD  del  nombre 
.  DIRECCION  DONDE  SE 
■  ENCUENTRO  GU0RO0DO 

NUMERO  DE  0RCHIVO 

m  recc.1 í  un°secund0R  I O 

:  s¡K5rsrs««- 

■  DEL  PROGR0M0  PBPB 
;  H0C-ER  el  S0VE 

,  DIRECCION  PINOL  DE  SBVE 

HRPE  el  srve 
.  restburbr  vectores 

DE  RUT I NO  BSOUT 
,  FIN  DE  LO  RUT I NO 


2210: 


C1C4  93  11  11  BVISO 
C1F4  93  11  11  TÍTULO 


RTS  '  1 

B3C  .<CL«><8  CRSRD>PON  €L  DISCO  OESTIHO 
PULSO  UNO  TECL0 

.flSC  "(CLR)18  CRSRD )  COMMOOORE  WORLD  1985" 
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EMOCO 


ROBO  TIC  RFVT1 


POBOTIC  HRm 

PARA  COMMODORE-64 

•  CONTROL  POR  ORDENADOR,  JOYSTICK  O  TECLADO. 

•  PROGRAMACION  DIRECTA  DE  “BASIC”. 

•  CONTROL  EXTERNO  DE  DOCE  DIRECCIONES  DE  MOVIMIENTO. 

•  BRAZO  PRINCIPAL  SUBE  Y  BAJA. 

•  BRAZO  PRINCIPAL  270  GRADOS  DE  MOVIMIENTO  DE  PARADA  A  PARADA 

•  MUÑECA  SUBE  Y  BAJA. 

•  GIRO  DE  MUÑECA  270  GRADOS  DE  MOVIMIENTO  DE  PARADA  A  PARADA. 

•  CODO  90  GRADOS  A  AMBOS  LADOS  DEL  CENTRO. 

•  PINZAS  ABRE  Y  CIERRA. 


IMPORTADOR  EXCLUSIVO 


i  vi  ••••  ••••  ••••••••••  ••••  •:  :•••.  . . •. 

:  :  .•••:  s  •  •  •  •  2222*  . . : 

•  •  •••  •  •••  •  •••  •••  •  •  •••  ••••  ••••*  ::  *•••*•  •! 


Córcega,  247 


Telfs.:  (93)  237  39  94  -218  56  04 


08036  BARCELONA 


EXCURSION  POR  l*  MKROPROORANRCIOH 

^  Listado  2:  Programa  Bañe. 


2  «„«  “«orcu*^^ 

5  L I  - 1 00  «  LF  - 1  ^  ^ ,  gosub  15 

8  PRIN  „^írL¿fl  AL  QUE  QUIERES 

9  PRINT  EL  AUTO-RUN" 

10  PR I N T ' ,\H  ?  F  HLEAR S  VS  49408“ 

\z  prÍnt“OESPUES  ihepoouc^" 

11  PR I  NT  “  HOMBRE  DEL  PROORflMfl 

Ü  ^CÍo™r'Í.S2-.’o 

17  s  :SU”SU+DA 

sí-SSíshk-n-- 

21  NEXT  LN 

22  RETURN 

g  PPIHT" ERROR  ENLOS  DATOS  DE“ 

25  PRINT’LA  LINEA  >LN 

26  END 

1  ^00 ' DATA 

105  DATA  32'32'“'f|i  »5,169, 202,953 
>  H0  DATA  141,39,772 

115  DATA  l41'38'3^  1^255,32,635 
S  120  DATA  3 ' 1 ' ® fl2  í  74 , 1 6? , 255 , 0 , 92? 

3  125  DATA  38  189,0,3,647 

235  DATA  2Í®'?'  S  232^ 224,60,208, 10?3 
5  240  DATA  i^'0' ‘“'11,25?, 255,201,  H02 

245  DATA  245,162,0,34,4»  ;92,232,90? 

250  DATA  13'2t0'l5l  lil!í42,64, 192, 1087 

*  255  DATA  224,  ,85, 192, 173,805 

260  DATA  173'3f',  op,  192  173,64,702 

J  265  DATA  33'3 ¡  iül  192,32 , 189,992 

270  DATA  192,162,65,180,  ^756 

i  275  DATA  ¿5  169,0,32,213,887 

*  280  DATA  32,lS6;2-4‘f3  , 255,162,0,1192^ 

^  285  DATA  32,210,255,232,1307 

J  290  DATA  183'‘f6^  245,32,228,255,1240 

295  DATA  224'f  ^249, 169,0,32,891 
¿  300  DATA  '%£**.'£%,  169,32,  157,919 

305  DATA  144'?S'i  5  232,208,606 
i  310  DATA  0'4'157'8' 244  193,32,1067 

1*  315  DATA  24^/ 232^224,39,208,245,  1413 

-  320  DATA  169,3,?93 

■P  325  DATA  189,0,761 

~  330  DATA  i4‘'?!;‘I  3  232,224,208,1016 

335  DATA  192'157'®'3'!3  '  92  162,65,1109 
r J  340  DATA  208,245, 173 '84 ' 2^'  i69,  1  ,998 

^  is  SSS 

^  S  DATA  1«,«,»1 


Listado  3:  Volcado  Hexadecimal. 


B*  PC  SR  AC  XR  VR  SP 
. ,803E  32  08  83  00  F6 

•,c041 

.  ¡C049  20  f?  ?|  2,  c«  8D  26  03 

■•ssSssiisss 

.  SC061  90  FF  20  59  no  -r 


.  ,C100  R2 
. tC108  E8 
.  :C110  CF 
. 1CII8  C0 
. sC120  C0 
. sC128  27 
_  tC130  A2 
. SC138  01 
.  SC140  A9 
. gC148  FF 
.  :C150  FF 
. «C158  FF 
.  sC160  90 
.  1CI68  04 
. -C170  00 
. :C178  E0 
. :C180  C0 
. SC188  BD 
. ,C190  D0 
. xC198  A0 
.  ,C1A0  08 
. :C1A8  85 


26  BO  00 
E0  3C  D0 
FF  C9  0D 
E8  E0  10 
AD  26  03 
03  8D  5A 


R2  08  A0 
00  20  D5 
A2  08  80 
E8  E0  30 
C9  00  F0 


03  90  00  C0 
F5  A2  00  20 
F0  08  90  41 

00  F1  8E  40 

80  55  C0  AD 
C0  HD  40  C0 
20  BO  FF  A9 
01  20  BA  FF 

FF  86  FE  84 

C4  C1  20  02 
D0  F5  20  E4 

F9  B9  00  20 
B9  20  90  00 
£8  00  F7  A2 
20  D2  FF  E8 
,  A9  51  80  26 
27  C0  A2  26 
00  03  E8  E0 
40  C0  A2  41 
FF  A9  01  A2 
Bfl  FF  A9  26 
I  85  FD  A9  FC 

20  08  FF  AD 
03  HO  5A  C0 
11  11  11 
20  50  4F 
20  44  49  53 
45  53  54  49 
20  50  55  4C 
4£  41  20  54 

93  11  11  I» 
11  20  20  20 
20  20  20  43 
44  4F  52  45 
4C  44  20  31 
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Ahora  un 

NUEVO  SISTEMA  OPERATIVO  EXTERNO 

para  su  Commodore  64  o  su  Commodore  128  (en  modo  64) 

INCORPORA 

-  EL  Acceso  a  disco  5  veces  más  rápida  (divide  por  5  tanto  el  tiempo  de  carga  como  el  de  grabación  de  sus  programas) 

-  Un  turbo-casete  10  veces  más  rápido  para  todas  las  operaciones  (programas  y  ficheros)  utilizando  los  comandos 
normales  de  su  C64.  Compatible  con  “TURBO  TAPE  64" 

-  24  K  RAM  más  para  la  programación  en  Basic. 

-  Numerosas  instrucciones  del  Basic  4.0  (Catalog,  Dload.  Dsave,  Dappend,  etc). 

-  Nuevos  comandos  de  ayuda  a  la  programación  como:  Find,  Auto.  Renun  (incluso  Goto  y  Gosusb),  Del,  Oíd,  Help,  etc. 

-  Un  potente  y  sencillo  interface  para  impresora  tipo  Centronics  (paralelo),  que  le  permitirá  aprovechar  las  posibilidades 
de  su  impresora,  pero  también  reproducir  los  caracteres  gráficos  y  los  códigos  de  control  del  Commodore. 

-  Un  fantástico  monitor  de  código  máquina,  que  podrá  llamar  en  cualquier  momento  (si,  en  cualquier  momento).  Incluye 
todas  las  funciones  habituales  más  otras  excepcionales,  como  Bank,  Switching.  Este  monitor  no  ocupa  memoria 
alguna  y  permite  acceder  fácilmente  a  cualquier  posición  de  memoria,  incluso  debajo  del  Kernal. 

-  Volcado  de  pantalla  (Hard  Copy),  en  alta  y  baja  resolución.  Compatible  con  Koala  Pad  y  programas  similares. 

-  Varios  comandos  especiales  como  por  ejemplo  “Type"  que  le  permitirá  usar  su  ordenador  y  su  impresora  como  una 
máquina  de  escribir  electrónica. 


-  Un  botón  de  Reset  que  permite  Resetear  todos  los  programas. 

-  Un  interruptor  on/off  (este  por  si  acaso.  suponemos  que  no  lo  querrá  usar). 

Todo  esto  en  un  cartucho  totalmente  transparente 
NO  REQUIERE  NINGUNA  INSTALACION  ESPECIAL 
(Enchufe  el  cartucho  y  no  lo  quite  mas) 

Pídalo  en  su  tienda  o  directamente  por  correo  a  HISPASOFT,  S.A. 

Precio  garantizado  hasta  el  31/12/1985: 

THE  FINAL CARTRIDGE . (CONTRA  REEMBOLSO) . 12. 

OPCIONAL:  CABLE  C0 M M 0 00 R E/l M P.  PARALELO . 2.! 

THE  FINAL  CARTRIDGE:  |C)  H&P  COMPUTERS-DISTRIRUIDO  EN  ESPAÑA  POR  HISPASOFT 


DISQUETTES 

SSSD 

LASER  DATA  professionnel 
centro  reforzado 


DISQUETTES 

Doble  cara  -  Doble  densidad  : 

SIN  MARCA 

(Especial  prof  -  software)  | 

centro  reforzado 

360  PTS./UNIDAD  Por  cajas  de  10  | 


De  forma  amena  y  gradual  se  obtienen  en  poco  tiempo  sorprendentes  resultados. 

El  diseño  de  grafismos,  sonidos  y  colores  de  SU  M  ATEST  hace  posible  disponer  de  un  atractivo  y  poderoso  instrumento 
apto  para  desarrollar  en  los  niños  el  gusto  por  el  manejo  de  los  números. 
r  •'Especialmente  recomendado  entre  los  6  y  10  años. 

T  Desde  ios  10  para  obtener  buena  agilidad  mental. 

SUMATEST  (CINTA)  (CONTRA  REEMBOLSO) .  1.990  PTAS. 

SUMATEST  (C)  11/1985  HISPASOFT 


H5DOT.SH 


Plotter,  qué  bien  dibujas 


Ordenador:  C-64  (véase  artículo) 
Fabricante:  Roland 
Distribuidor:  Vietronic 

C./  Bolivia,  239 
08020  Barcelona 
Tel.:  (93)  307  47  12 

Precios: 

DXY-101:  125.029  ptas. 
DXY-800:  197.560  ptas. 
DXY-880:  265.025  ptas. 
DXY-980:  377.075  ptas. 


El  mes  pasado  os  anunciábamos  la 
reseña  de  un  plotter  de  la  casa  Vietro¬ 
nic.  Hemos  tenido  el  gusto  de  probarlo 
y  aquí  tenéis  nuestras  impresiones. 

Un  plotter  es,  básicamente,  un  instru¬ 
mento  de  dibujo  capaz  de  realizar  dibujos 
sobre  papel  y  conectable  al  ordenador  por 
medio  de  un  interface  adecuado. 

Para  que  un  plotter  sea  bueno,  debe  ser 
rápido,  tener  calidad  de  impresión,  ser  más  o 
menos  standard  — para  que  se  pueda  conec¬ 
tar  a  ordenadores  distintos — ,  todo  ello  a  un 
precio  razonable. 

El  plotter  DXY-101  es  un  aparato  de  casi 
medio  metro  por  medio  metro.  Acepta  hojas 
de  tamaño  un  poco  más  pequeño  y  lápices  o 
rotuladores  de  varias  clases. 


Existen  otros  modelos  de  plotter  que  no 
hemos  probado  pero  de  los  que  tenemos 
referencias,  el  DXY-800  es  idéntico  al  101 
sólo  que  puede  cambiar  de  rotulador  auto¬ 
máticamente  para  utilizar  diferentes  colores, 
tipos  de  rotulador,  etc.  Otros  dos  modelos 
más  avanzados  son  el  DXY-880  y  el  DXY- 
990.  Tienen  el  doble  de  resolución  (pasos  de 
0,05  mm.),  velocidad  máxima  de  23  cm./s.,  so¬ 
portes  de  papel,  displays  indicadores  de  la  po¬ 
sición  del  lápiz  en  todo  momento,  más  del 
doble  de  comandos  de  control  —47  en  vez  de 
20 —  y  posibilidad  de  emular  los  plotters 
7475A  de  Hewlett  &  Packard. 

Estos  plotters  están  diseñados  para  fun¬ 
cionar  con  cualquier  ordenador  que  sea 
capaz  de  utilizar  un  interface  Centronics.  El 
manual  habla  solamente  de  IBM  PC,  APPLE 
y  TRS-80.  Ni  qué  decir  tiene  que  funciona 
perfectamente  con  el  C-64,  C-128  y  (aunque 
no  lo  hemos  probado)  con  el  Vic-20  y  C-16, 
siempre  que  lleven  un  interface  Centronics 
apropiado. 

El  disco  de  demostración  viene  con  un 
programa  que  simula  un  interface  Centro¬ 
nics.  Este  programa  sólo  sirve  para  el  C-64  y 
el  C-128  en  modo  64.  La  conexión  entre  el 
plotter  y  el  ordenador  se  realiza  a  través  del 
port  del  usuario,  mediante  un  cable  que  se 
suministra  con  el  plotter. 


Control  Panel 


•POWER  (ERROR)  LE 


Un  gran  logro  por  parte  de  los  fabricantes 
del  plotter  es  que  el  Centronics  que  utiliza  es 
un  Centronics  “puro”  y  los  comandos  que  se 
le  envían  los  procesa  y  ejecuta  sin  ayuda  del 
ordenador,  que  se  limita  solamente  a  enviar¬ 
los.  Por  eso  es  tan  compatible. 

El  plotter  tiene  un  brazo  articulado  en  el 
que  se  encuentra  el  soporte  para  el  lápiz  o 
rotulador  con  el  que  se  va  a  dibujar. 

Mirando  la  parte  posterior  del  aparato 
pueden  verse  los  conectores  para  la  red,  el 
interruptor  de  encendido,  el  conector  Cen¬ 
tronics  y  un  conector  RS-232.  También  hay 
dos  grupos  de  microswitchs  para  variar  la 
velocidad  del  movimiento,  la  velocidad  de 
transmisión  por  RS-232,  la  paridad,  etc. 

Una  posibilidad  interesante  del  plotter  es 
la  utilización  de  distintos  tipos  de  lápices  o 
rotuladores.  Además  del  rotulador  normal 
que  se  suministra,  viene  con  el  plotter  un 
adaptador  para  otros  tipos  de  instrumentos 
de  escritura;  la  propia  casa  vende  rotuladores 
(de  tinta  china,  cerámicos,  etc.)  para  otras 
aplicaciones. 


¿Qué  es  lo  que  hace  un  plotter? 

En  primer  lugar,  dibuja  muy  bien.  La  pre¬ 
cisión  de  este  plotter  es  de  0.1  mm.,  con  un 
fallo  del  1  por  ciento  en  los  desplazamientos 
largos.  Esto  es  más  que  suficiente  en  la 
mayoría  de  los  casos,  ya  que  los  errores  de 
precisión  son  menores  incluso  que  el  tamaño 
de  la  punta  del  rotulador. 

Una  aplicación  muy  interesante  del  plotter 
es  el  diseño  de  esquemas  y  circuitos  electró¬ 
nicos.  En  el  disco  de  demostración  hay  un 
programa  que  se  encarga  de  hacer  una 
demostración  sobre  esto.  Es  sencillamente 
asombroso  verlo  funcionando,  casi  más  que 
el  resultado  final. 

También  puede  resultar  útil  para  la  repre¬ 
sentación  de  gráficas,  documentos,  e  incluso 
dibujos  artísticos. 

Una  faceta  muy  interesante  para  los  afi¬ 
cionados  a  la  electrónica  es  el  diseño  de  cir¬ 
cuitos  integrados.  Partiendo  de  un  esquema, 
el  ordenador  puede  diseñar  una  placa.  Para 
esto  hacen  falta  programas  especiales  (esta¬ 
mos  esperando  uno  de  la  casa  Ferre  Moret 
para  comentarlq).  Con  la  utilización  de  un 
plotter  pueden  obtenerse  diseños  a  tamaño 
real,  ampliados,  reducidos,  etc.  Las  posibili¬ 
dades  en  este  campo  son  inmensas. 

El  plotter  puede  utilizarse  también  como 
impresora.  Es  algo  muy  útil,  ya  que  se  com¬ 
porta  igual  que  una  impresora  Commodore: 
escribe  la  página  completa  y  se  detiene  para 
que  cambies  el  papel.  El  único  inconveniente 
(naturalmente,  no  todo  iban  a  ser  ventajas) 
es  que  no  tiene  definidos  los  caracteres  gráfi¬ 
cos  de  Commodore. 


¿Cómo  funciona? 

Como  ya  hemos  dicho,  se  utiliza  un 
programa-interface  para  la  conexión  Cen¬ 
tronics.  Es  el  que  primero  hay  que  leer  y  eje¬ 
cutar.  A  partir  de  ese  momento,  abriendo 
cualquier  canal  para  impresora  (con  OPEN 
1 ,4)  todo  lo  que  se  envíe  será  recibido  por  el 
plotter.  Por  supuesto,  puede  utilizarse  por 
otro  lado  una  impresora  normal,  con  sólo 
cambiarla  el  número  de  periférico  a  5. 

Los  comandos  vienen  explicados  en  el 
manual  (que  está  en  inglés,  aunque  con 
muchos  dibujos  aclaratorios)  y  consisten 
siempre  en  una  letra  y  a  continuación  los 
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OMENT ARIOS  COMMODORE 


parámetros.  Así  por  ejemplo,  dibujar  una 
línea  es  “D  0,  100,  0,  200”.  Todos  los 
comandos  son  muy  sencillos  de  comprender 
y  de  utilizar. 

Hay  en  total  20  comandos,  uno  de  los  cua¬ 
les  (J)  sólo  se  puede  utilizar  con  el  DX-800 
pues  sirve  para  indicarle  al  plotter  que  cam¬ 
bie  de  rotulador.  Hay  comandos  para  dibu¬ 
jar  rectas,  círculos,  rectángulos,  etc.  Algunos 
son  muy  curiosos,  como  cambiar  la  escala  en 
la  que  se  imprimen  las  letras  (todas  ellas 
según  el  código  ASCII  standard),  trazar 
líneas  de  puntos,  caracteres  especiales,  o 
cambiar  el  ángulo  en  el  que  se  imprimen  los 
textos.  Todo  esto  puede  hacerse  desde  Basic 
con  gran  sencillez. 

Si  se  produce  algún  error,  un  indicador 
luminoso  del  plotter  comienza  a  parpadear. 
Esto  puede  suceder  cuando  el  plotter  intenta 
salirse  del  rango  máximo  en  el  que  puede 
dibujar,  o  cuando  se  le  indica  algún  comando 


Cómo  está  hecho  el  plotter 


La  parte  principal  del  plotter  es  el  brazo 
móvil.  Puede  deslizarse  de  izquierda  a  dere¬ 
cha  libremente  y  lleva  encajado  la  pieza  que 
sujeta  los  rotuladores.  Esta  pieza  es  también 
móvil  y  puede  desplazarse  a  lo  largo  del 
brazo,  con  lo  que  se  obtiene  la  movilidad 
total  del  lápiz:  en  el  eje  X  mediante  el  brazo 
móvil  y  en  eje  Y  mediante  el  desplazamiento 
a  lo  largo  del  brazo. 

El  sistema  que  se  utiliza  para  subir  y  bajar 
el  rotulador  es  muy  curioso:  Un  electroimán 
atrae  un  muelle  que  mantiene  a  una  chapa 
metálica  bajada.  A  esta  chapa  está  unido  el 
rotulador.  Por  medio  de  un  eje,  el  rotulador 
baja  por  su  propio  peso  cada  vez  que  el  elec¬ 
troimán  tira  del  muelle  hacia  arriba. 

El  soporte  para  los  rotuladores  es  una 
pieza  de  plástico  que  tiene  unas  aberturas  en 
la  parte  central.  Es  ahí  donde  hay  que  enca¬ 
jar  el  rotulador.  Si  se  trata  del  que  se  sumi¬ 


nistra  con  el  plotter  no  hay  problema,  puesto 
que  está  perfectamente  ajustado.  Si  se  desea 
colocar  otro  tipo  de  rotulador  hay  que  medir 
la  distancia  entre  la  punta  de  este  y  el  papel 
para  que  no  dibuje  cuando  no  deba  y  no  se 
golpee  demasiado. 


Conclusiones 


El  plotter  DXY-101  es  un  buen  instru¬ 
mento  de  dibujo.  Hace  unos  gráficos  fran¬ 
camente  bonitos  y  con  buena  calidad.  Las 
posibilidades  de  cambios  de  color,  tipo  de 
lápiz,  etc.,  hacen  que  pueda  ser  utilizado  para 
muy  diversas  tareas.  Hay  que  tener  en  cuenta 
que  por  su  precio  no  es  un  juguete  y  que  hay 
que  tener  bien  claro  para  qué  se  va  a  utilizar. 
Además  la  compatibilidad  del  tipo  de  cone¬ 
xión  Centronics  que  incorpora  y  la  salida 
RS-232  hacen  que  su  utilización  no  se  limite 
a  un  determinado  tipo  de  ordenador. 


Winter  Gomes 


Ordenador:  C-64  (cinta) 

Fabricado  por:  Epyx 
Distribuido  por: 

Compulogical 

C./  Santa  Cruz  de  Marcenado,  31 
28015  Madrid 
Teléf.  241  10  63 
Precio:  2.300  pías. 


El  mes  pasado  os  presentábamos  los 
Summer  Games  II.  Ahora  le  toca  el 
turno  a  los  Winter  Games.  Como  su 
propio  nombre  indica,  se  trata  de  los  juegos 
invernales.  Su  aspecto  exterior,  incluida  la 
presentación,  los  menús,  etc.  es  casi  igual  al 
de  los  Summer  Games  II. 

En  un  primer  vistazo  al  manual  se  observa 
una  cosa  curiosa:  no  hay,  como  cabria  de 
esperar,  pruebas  de  descenso,  quizá  porque 
son  demasiado  clásicas.  Sin  embargo,  hay 
otras  muy  interesantes  y  sorprendentes. 

Al  igual  que  el  mes  pasado,  comentaremos 
primero  las  mejores.  En  primer  lugar  está  el 


salto  de  trampolín.  Los  gráficos  (al  igual  que 
en  las  demás  pruebas)  son  fantásticos.  Algu¬ 
nas  pruebas  — incluida  ésta —  hacen  uso  de 
más  de  una  pantalla,  porque  la  acción  se 
desarrolla  en  varios  lugares. 

Cuando  el  saltador  se  desliza  por  la 
rampa,  hay  que  esperar  al  momento  opor¬ 
tuno  para  saltar.  Si  saltamos  bien  — en  caso 
contrario  el  hombrecillo  se  pegará  un  sobe¬ 
rano  tortazo —  el  escenario  se  traslada  a  la 
parte  baja  del  trampolín.  Lo  más  importante 
de  esta  pantalla  es  el  recuadro  que  aparece  en 
la  parte  superior  derecha,  en  el  que  se  ve  al 
saltador.  Lo  que  hay  que  hacer  es  evitar  que 
se  desequilibre,  contrarrestando  los  efectos 
del  viento  con  movimientos  del  joystick.  Es 
difícil  saltar  bien  a  la  primera,  pero  después 
de  varios  intentos  se  va  aprendiendo. 

Como  prueba  curiosa  están  los  "Hot 
Dogs”  — que  no  son  perritos  calientes — , 
sino  saltos  acrobáticos.  Esta  prueba  se 
parece  un  poco  al  salto  de  trampolín  o  a  la 
gimnasia  de  los  Summer  Games.  El  esquia¬ 
dor  aparece  en  la  ladera  de  una  montaña 
empinada,  con  una  pequeña  rampa  al  final. 
Cuando  está  en  el  aire  hace  movimientos 
según  movamos  el  joystick.  Hay  seis  movi¬ 
mientos  en  total  y  pueden  combinarse  entre 
sí.  La  puntuación  se  otorga  en  función  del 
tipo  de  salto  y  de  cómo  cae  el  esquiador.  Se 
puede  hacer  un  10  si  se  utiliza  la  combina¬ 
ción  adecuada. 

También  interesante  es  la  prueba  de  los 
“bobsled”.  Son  esos  trineos  que  se  deslizan  a 
altas  velocidades  por  un  pequeño  canal.  En 
la  parte  izquierda  de  la  pantalla  aparece  el 
mapa  del  recorrido,  que  hay  que  estudiar  un 
poco  para  que  a  uno  no  le  pillen  despreve¬ 
nido  las  curvas.  En  la  derecha,  arriba,  apa¬ 
rece  la  imagen  del  trineo  vista  en  perspectiva. 
Cuando  comienza  a  deslizarse,  vemos  cómo 
las  paredes  del  camino  se  van  quedando 
atrás.  El  efecto  tridimensional  de  movi¬ 
miento  está  muy  bien  conseguido,  con  túne¬ 
les  y  nubes  desplazándose  por  la  pantalla. 
Para  poder  llegar  al  final  hay  que  contrarres¬ 
tar  el  efecto  de  la  fuerza  centrífuga  en  las 
curvas,  girando  hacia  el  lado  contrario.  Esto 
se  aprende  con  facilidad.  Lo  que  es  algo  más 
difícil  es  aprender  a  tomarlas  en  la  posición 
adecuada  para  ir  más  deprisa  y  hacer  mejor 
tiempo. 

La  prueba  de  patinaje  de  velocidad  es  casi 
igual  a  la  prueba  de  piraguísmo  de  los  Sum¬ 
mer  Games  II.  Moviendo  el  joystick  a  un 


lado  y  a  otro  se  consigue  que  el  patinador 
vaya  ganando  velocidad.  Tiene  dos  panta¬ 
llas,  una  para  cada  jugador. 

Las  pruebas  que  quedan  (biathlon  y  pati¬ 
naje  artístico)  son  menos  espectaculares, 
aunque  no  dejan  de  ser  interesantes. 

El  Biathlon  es  una  combinación  de  esquí 
de  fondo  y  tiro  con  rifle.  El  circuito  se  com¬ 
pone  de  tres  pantallas:  Una  en  llano,  que 
atraviesa  un  río,  una  en  cuesta  abajo  y  otra 
en  cuesta  arriba.  En  la  pantalla  aparece  en 
todo  momento  la  velocidad  del  esquiador, 
los  aciertos  que  lleva  y  — cosa  curiosa —  los 
latidos  del  corazón.  La  velocidad  varía  según 
vaya  corriendo  el  hombre.  En  la  cuesta  abajo 
se  gana  velocidad,  en  el  llano  se  mantiene, 
pero  en  la  cuesta  arriba...  ¡no  se  cae  porque 
no  está  programado!  Es  realmente  costoso 
hacerle  subir  la  cuesta,  a  menos  que  se  lleve 
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c/  aragón,  272,  8a,  6.a 

tel.  21  5  69  52  -  08007  barcelona 

•  Software  profesional  para  C-64 

•  Con  distribución  productos 
DIGITAL  RESEARCH 


WAOfO 


ORDENADORES  PERSONALES 

•  ACCESORIOS  INFORMATICA 

•  COMPONENTES 
ELECTRONICOS 

•  TELECOMUNICACIONES 

Paseo  de  Gracia  126-130 
Tel.  237 11  82*.  08008  BARCELONA 


EN  HUELVA 

Commodore 

Spectrum 

Nixdorf 

INFORMATICA 
COMPUTER  LOG 

C/  Puerto,  6 

HUELVA.  Teléf.:  25  81  99 


COMMODORE 


ORDENADORES-PERIFERICOS-SOFTWARE 

SERVICIO  TECNICO 


ATENCION 

ULTIMA  OPORTUNIDAD 
PARA  PARTICIPAR 
EN  EL  SORTEO  DE 
8  COMMODORES  128 
(VER  PAG.  47) 


COMPARE  LOS  PRECIOS  1 

COMMODORE  64 

54.500 

DATASSETTE 

10.000 

FAST-TURBO  MENUE 

8.500 

SOLO  FLIGHT 

3.800 

COLOSSUS  CHESS  2.0 

2.800 

ZAXXON 

2.300 

TOTAL 

81.900 

POR  SOLO 

59.900  Pías. 

23.900  pts. 
2.450  ptas. 

Joystick  Quickshot  II . 

Discos  RPS  ID  (caja  de  plástico). 

...  340  pts. 

Discos  RPS  2D  (caja  de  cartón)... 

...  395  pts. 

Monitor  Ciagei  con  sonido . 

22.900  pts. 

Oferta  de  Commodore  128 

Consulta  precios 

ASTOC  DATA 

Apartado  de  Correos.  695 
SANTIAGO  DE  COMPOSTEL  4 

Tel.  (981)  59  95  33 

/micro 


W= 


HACEMOS  FACIL 
LA  INFORMATICA 

•  SINCLAIR  •  SPECTRAVIDEO 
•COMMODORE  •  DRAGON 
•  AMSTRAD  •  APPLE 
•  SPERRV  UNIVAC 


Modesto  Lafuente,  63 
Telf.  253  94  54 
28003  MADRID 
José  Ortega  y  Gasset,  21 


Ezequiel  González.  28 
Telf.  43  68  65 
40002  SEGOVIA 


Colombia,  39-41 
Telf.  458  61  71 
28016  MADRID 
Padre  Damián,  18 
Telf.  259  86  13 
28036  MADRID 
Avda.  Gaudí,  15 
0801 5  BARCELONA  i 
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VENTAMATIC 


■  •VEN  A  CONOCERNOS.  Somos  los  SUPER- 
"  ESPECIALISTAS  del  COMMODORE  64  y  lo  te- 

Inemos  TODO  para  tu  COMMODORE  64  (Inclu¬ 
yendo  lo  último  en  accesorios  y  programas 

I  musicales  y  MIDI).  SOLICITA  CATALOGO 
COMPLETO. 

I  •VENTAMATIC  -  c  Córcega.  89.  entlo  08029 
BARCELONA  Tel  :  (93)  230  97  90  Metro  EN 
■  TENZA  Línea  V  Bus  41.  27,  15.  54.  66 
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Avda.  de  Arteijo,  19 
14004  La  Coruña 
Teléf.  25  51  72 

Especializados 
en  software  para 
Commodore-64 
Spectrum 
y  MSX 
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-  ORDENADORES  PERSONALES  - 


•  Sinclair  Spectrum  -  Plus  -  QL 

•  Spectravideo  328  y  MSX 

•  Atari  800  XL  y  600  XL 

•  Dragón  32  y  64 

•  Commodore  64 

•  Oric  Atmos 

•  Amstrad 

-  PERIFERICOS  Y  ACCESORIOS 

-  SOFTWARE  PARA  TODAS  LAS 
MARCAS 

-  CURSOS  DE  BASIC 

-  GRAN  SURTIDO  EN  LIBROS 
Y  REVISTAS 


Francisco  Silvela,  19 
Teléfono  401  07  27.  28028  MADRID 
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mucha  velocidad.  Cada  vez  que  se  da  una 
vuelta  al  circuito  hay  que  hacer  cinco  dispa¬ 
ros  a  los  blancos  que  aparecen.  Se  carga  el 
arma,  se  cierra  y  se  dispara.  La  mirilla  va 
pasando  sobre  el  blanco  y  hay  que  apretar  el 
botón  en  el  momento  oportuno.  Cada  fallo 
supone  cinco  segundos  de  penalización  en  el 
tiempo  final. 

Esta  prueba  es  demasiado  larga,  por  eso 
acaba  haciéndose  un  poco  aburrida.  El  ritmo 
de  los  latidos  influye  en  la  puntería,  y  varia 
según  el  esfuerzo  que  realiza  el  corredor 
(sobre  todo  cuando  sube). 

La  última  prueba  — que  en  realidad  son 
dos —  es  el  patinaje  artístico.  Son  dos  porque 
hay  dos  modalidades:  obligatoria  y  libre.  La 
primera  dura  un  minuto  y  hay  que  hacer  las 
siete  piruetas  posibles  para  conseguir  una 
puntuación  aceptable.  En  la  modalidad  libre 
hay  que  hacer  cada  pirueta  tres  veces. 


Es  bastante  complicado,  porque  hay  que 
tener  en  cuenta  la  posición  de  las  piernas,  la 
dirección  en  que  va  patinando  la  chica  y 
también  evitar  caerse  al  saltar. 

El  juego  en  su  conjunto  está  bien,  aunque 
personalmente  me  quedo  con  los  Summer 
Games  II.  Tiene  algunos  fallos  pequeñitos  (al 
menos  en  la  versión  que  hemos  probado,  la 
de  disco  aunque  se  comercializa  en  cassette), 
que  podrían  haberse  evitado. 

Por  ejemplo:  no  se  puede  pulsar  stop/res- 
tore-para  salir  de  una  prueba,  como  se  podía 
hacer  en  los  Summer  Games  I  y  II.  Es  fre¬ 
cuente  que  cuando  se  está  jugando  con  dos 
joysticks,  el  ordenador  “cambie”  de  joystick 
a  los  jugadores,  lo  que  crea  bastantes  confu- 

Este  juego  tiene  menos  pruebas  que  los 
anteriores,  sólo  7  — que  en  realidad  son  6, 
pues  las  de  patinajes  son  iguales — .  No  obs¬ 
tante.  es  interesante,  y  por  el  bajo  precio  al 
que  se  está  vendiendo  no  puede  faltar  en  la 
colección. 


ARCHON 

Ordenador:  C-64  (cinta) 

Fabricante:  Electronic  Arts. 

Distribuidor  en  España: 

Dro  Soft. 

Fundadores,  3 
28029  Madrid 
Tel.  (91)  255  31  00 
Precio:  2.500  pías. 

Muy  lejos  de  aquí  en  el  tiempo  y  el 
espacio  de  realidad,  en  el  Mundo 
Superior  de  las  Almas,  Abraxas,  el 
Dios  del  Bien  y  el  Mal,  divide,  pro¬ 
voca  y  contempla  la  lucha  eterna  de  la  Ver¬ 
dad  y  la  Mentira,  la  Luz  y  la  Oscuridad  en  la 
batalla  suprema  del  ARCHON... 

Esto  es  la  ambientación  o  presentación 
que  este  juego  podría  haber  tenido,  pero  se 
han  quedado  un  poco  cortos;  este  juego  se 
merecía  más.  Pero  aquí  se  acaban  las  críticas. 

Quizás  quien  lo  haya  visto  por  ahí  o  haya 
oído  hablar  de  él  pensará  que  es  una  especie 
de  ajedrez  sofisticado.  De  nuevo  se  han  que¬ 
dado  cortos.  Los  autores  del  juego,  pensando 
en  el  ajedrez  han  creado  un  nuevo  juego,  en 
muchos  aspectos  superior  a  éste:  esto  parece 
exagerado  dada  la  importancia  del  ajedrez 
hoy  en  día,  pero  no  creo  que  éste  fuera  tan 
popular  en  sus  comienzos.  Todo  depende  de 
este  período  crítico  de  infancia,  pero  creo 
que  el  Archon  puede  llegar  a  ser  un  fenó¬ 
meno  importante  (por  ejemplo  algo  así  como 
una  sección  en  el  periódico  del  Domingo:  El 
Lado  Oscuro  juega  y  gana  en  tres  jugadas...). 
Quizás  el  único  inconveniente  es  que  para 
jugar  al  Archon  se  necesita  cuando  menos  un 
ordenador,  esto  todavía  no  lo  tiene  todo  el 
mundo:  sabemos  que  existen  ya  algunas  ver¬ 
siones  de  Archon  para  los  otros  ordenadores 
personales  de  mayor  aceptación. 

Volviendo  al  origen  de  este  juego,  los  auto¬ 
res  quisieron  dar  al  ajedrez  el  aspecto  nuevo 
de  la  movilidad  y  la  interacción  instantánea, 
el  de  una  verdadera  batalla,  sin  quitar  lo  que 
hace  del  ajedrez  lo  que  es:  el  planteamiento 
estratégico.  Los  más  escépticos  y  conserva¬ 
dores  podrían  decir  que  al  incorporar  esta 
novedad  el  aspecto  estratégico  perdería  valor 
y  calidad.  ¡Señor,  señor,  qué  incrédulos! 
Archon  también  supone  en  este  aspecto  una 
mejora.  Consiste  fundamentalmente  en  que 
la  pieza  principal  no  se  limita  a  ser  una  pieza 
de  movilidad  reducida  y  de  carácter  defen¬ 
sivo,  sino  que  es  una  mezcla  de  rey  y  dama 
con  una  movilidad  sin  límites  y  unas  posibi¬ 
lidades  mágicas  en  la  forma  de  una  sarta  de 
embrujos.  Dichos  embrujos  pueden  trastor¬ 
nar  completamente  el  panorama  de  la  batalla 
e  inclinar  la  balanza  a  un  lado  u  otro,  si  son 
utilizados  en  el  momento  y  manera  adecua¬ 
dos;  calcula  por  ti  mismo  las  posibilidades 
ofrecidas  por  hechizos  como  la  resurrección  o 
el  teletransporte  de  cualquier  pieza,  aprisio¬ 
nar  una  pieza  enemiga,  convocar  a  los  ele¬ 
mentos  contra  tu  enemigo,  etc... 

El  terreno  de  juego  también  participa  de  la 
actividad  de  la  batalla  ayudado  por  otro  fac¬ 
tor  fundamental,  el  tiempo.  En  efecto,  el 
tablero  puede  inclinarse  a  favor  de  uno  o  de 
otro  según  el  lugar  y  el  tiempo.  Hay,  pues,  tres 
tipos  de  casillas:  las  casillas  oscuras  o  lumi¬ 
nosas  que  marcan  una  diferencia  subjetiva  a 
favor  del  lado  oscuro  o  luminoso  respecti¬ 
vamente;  las  casillas  neutras  que  con  el  paso 
del  tiempo  van  pasando  de  un  color  oscuro  a 
un  color  claro  (o  viceversa)  con  las  conse¬ 
cuencias  que  esto  conlleva;  y  finalmente  los 
importantísimos  cinco  puntos  de  poder,  o 
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puntos  fuertes,  inmunes  a  la  magia,  de 
importancia  estratégica  vital,  y  en  sí  objetivo 
final  del  juego. 

En  todo  esto,  no  hay  que  olvidar  que 
Archon  es  un  juego  nuevo,  a  pesar  de  que  se 
inspirara  en  el  ajedrez  para  su  creación  y  se 
le  parezca  mucho  en  la  base.  Por  ello,  tanto 
las  piezas  como  sus  características  de  com¬ 
bate  y  movimiento  son  distintas.  En  cuanto 
al  movimiento,  el  alcance  y  tipo  varían  según 
la  pieza.  Todas  las  piezas  tienen  una  limita¬ 
ción  de  movimientos,  excepto  el  mago  y  la 
hechicera,  que  varía  entre  2  y  5  casillas.  Los 
tipos  de  movimiento  son  por  tierra,  aire  y 
teletransporte.  En  el  primer  tipo,  cualquier 
pieza  enemiga  o  amiga  supone  un  obstáculo 
infranqueable;  esto  no  se  aplica  a  las  piezas 
voladoras  por  ser  como  son,  claro.  El  tele¬ 
transporte  queda  reservado  para  las  mejores 
piezas.  Pero  las  diferencias  no  se  acaban  allí. 

He  querido  reservarlo  para  el  final,  pero 
sería  estúpido  seguir  hablando  sobre  un 
juego  sin  decir  lo  más  extraordinario  de  él. 
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Los  autores  del  juego  reprochaban  al  ajedrez 
su  pasividad.  Así  pues,  además  de  añadirle 
nuevos  elementos  como  los  hechizos,  las 
nuevas  modalidades  de  movimiento,  le  aña¬ 
dieron...  En  fin,  ¿qué  pasa  en  el  ajedrez 
cuando  una  pieza  llega  a  una  casilla 
ocupada  por  otra?  Si  eres  listo  contestarás 
que  se  la  merienda.  En  Archon,  no  hay  nada 
de  eso:  de  pronto  la  pantalla  empieza  a  sufrir 
unos  cambios  preocupantes,  hasta  que 
ambos  contrincantes  se  encuentran  transpor¬ 
tados  a  la  arena  de  combate,  cada  casilla  se 
convierte  en  un  campo  de  batalla  que  ocupa 
toda  la  pantalla.  El  vencedor  de  la  batalla,  no 
necesariamente  el  atacante,  ocupará  la  casilla 
disputada,  el  otro  morirá...  Esta  es  la  Justicia 
del  Archon. 

Las  características  del  combate  son  éstas. 
Cada  pieza  dispone  de  plena  movilidad  en 
toda  la  pantalla,  variando  la  velocidad  de 


movimiento  de  pieza  en  pieza.  La  manera  de 
destrozar  al  enemigo  es  alcanzándole  con  las 
armas  de  que  dispone,  que  también  son  dis¬ 
tintas  según  la  pieza.  Asimismo,  la  pantalla 
está  plagada  de  barreras  de  protección,  que 
puedes  usar  para  protegerte  o  que  pueden 
volverse  en  tu  contra  si  te  chocas  con  ellas  o 
si  tu  enemigo  las  usa  para  protegerse  (él  tam¬ 
bién,  pobrecito).  Así  las  características  y  el 
valor  general  de  las  piezas  quedan  definidos 
por  su  rapidez  en  la  pantalla  estratégica 
(tablero)  y  en  la  pantalla  de  combate,  y  el 
tipo  de  armas  que  usen  (de  contacto  como  las 
espadas,  porras  o  cenizas  abrasadoras;  o 
arrojadizas  como  las  flechas,  rayos,  bolas  de 
fuego,  etc.).  Citemos  como  ejemplo  el  Dra¬ 
gón,  figura  fundamental  en  el  lado  oscuro, 
que  vuela,  es  rápido  y  lo  destroza  todo  con 
sus  llamas  de  fuego,  o  el  ave  Fénix,  que  al 
transformarse  en  cenizas  mata  todo  lo  que  se 


encuentra  a  su  alrededor. 

Pero  la  victoria  no  es  siempre  tan  fácil  y 
placentera.  Todas  las  piezas  disponen  de 
unas  surgías  limitadas  que  están  represen¬ 
tadas  por  la  Línea  de  la  Vida,  situada  a  la 
izquierda  y  derecha  de  la  pantalla  de  com¬ 
bate,  que  se  va  menguando  con  cada  herida 
hecha  por  un  arma  enemiga;  la  pieza  muere 
cuando  su  línea  de  vida  llega  abajo  del  todo. 
La  importancia  de  la  Línea  de  Vida  es  fun¬ 
damental,  ya  que  asi  ninguna  pieza  poderosa 
está  al  abrigo  de  ataques  sucesivos  de  piezas 
inferiores  que  lo  vayan  desgastando  poco  a 
poco,  hasta  el  final. 

¿Para  qué  seguir  contando  tanto  del  juego, 
si  luego  váis,  lo  compráis  y  os  quedáis  sin  la 
ilusión  de  descubrirlo? 

Ahí  queda  eso.  Y  que  todavía  me  pregun¬ 
ten  qué  pienso  del  juego,  que  si  es  recomen- 


Lenguaje  Máquina 
para  Commoaore-64 


Autor:  Lothar  Englisch 
Traductores: 

Joachim  Hommen  (primer  libro) 
y  Jordi  Jové  Jordá  (segundo  libro) 

Páginas:  205 
Precio:  2.200  ptas. 

Edición  original:  Data  Becker 
Edición  española:  Ferré  Moret 
C./  Tuset,  8  -  entlo.  2 
08006  Barcelona 
Tel  :  218  02  93 

Ferre  Moret  sigue  traduciendo  y  editando 
en  España  los  libros  de  Data  Becker. 
Este  mes  vamos  a  comentaros  los  dos 
libros  que  hay  sobre  el  tema  código 
máquina  en  el  que  están  interesadas  muchas 
personas. 

El  primero  es  “Lenguaje  máquina  para 
Commodore  64”.  Se  trata  de  una  introduc¬ 
ción  para  los  que  no  saben  nada  sobre  código 
máquina,  pero  están  interesados  en  apren¬ 
der. 

En  los  primeros  capítulos  se  encuentra  lo 
básico  para  cualquier  persona  que  no  sepa 
nada:  Qué  es  el  sistema  binario  y  hexadeci- 
mal  y  cómo  se  realizan  las  conversiones. 
También  las  famosas  iniciales  jeroglíficas:  C, 
Z,  I,  D,  B,  V,  N  que  no  son  otra  cosa  que  las 
iniciales  de  Carry,  Zero,  Interrupt,  etc... 

Los  no  menos  incomprensibles  modos  de 
direccionamiento  vienen  a  continuación.  Al 
igual  que  en  las  demás  partes  del  libro,  todo 
viene  muy  bien  explicado  con  ejemplos  y 
— algo  muy  interesante  para  los  principiantes- 
comparaciones  con  el  Basic. 

Antes  de  seguir  hay  que  hacer  una  aclara¬ 
ción.  En  el  libro  vienen  muchos  ejemplos, 
algunos  en  Basic  y  otros  en  c.m.  Para  estos 
últimos  hay  que  disponer  de  un  monitor, 
como  el  ZOOM,  HESMON,  SUPERMON  o 
similares.  El  autor  ha  previsto  que  no  se  dis¬ 
ponga  de  ninguno  y  ha  creado  uno  en  Basic 
bastante  interesante  que  permite  utilizar 
etiquetas. 

El  siguiente  paso  es  la  explicación  de  todos 
los  comandos  existentes:  comparación,  sal¬ 
tos,  bifurcaciones,  etc.  Cada  una  con  su 
modo  de  direccionamiento,  indicando  ade¬ 
más  el  código  de  operación  y,  sobre  todo, 
para  qué  sirve. 


Una  vez  que  se  tiene  una  idea  de  lo  que  son 
todos  los  comandos  hay  que  saber  cómo  se 
coloca  el  programa  en  la  memoria  del  orde¬ 
nador:  Desde  el  primitivo  sistema  de  los 
datas  hasta  el  trabajo  con  un  monitor  de  c.m. 
También  trata  el  trabajo  con  ensambladores 
(los  que  permiten  etiquetas  y  marcas)  como 
el  del  listado  que  se  incluye  en  el  libro. 

En  el  capítulo  siguiente  hay  otro  programa 
interesante:  Un  simulador  paso-a-paso  para 
el  6510.  Sirve  para  ver  cómo  se  ejecutan  los 


programas  en  código  máquina  y/o  para 
corregir  los  errores  de  los  programas  de  los 
principiantes  — esto  último  siempre  sucede 
cuando  se  está  empezando. 

Lo  siguiente  es  un  ejemplo  sobre  cómo 
convertir  un  programa  Basic  simple  a  código 
máquina.  Esto  siempre  resulta  aclarativo 
aunque,  por  desgracia,  no  todos  los  progra¬ 
mas  que  queremos  convertir  a  c.m.  son  tan 
sencillos  como  los  que  vienen  en  los 
ejemplos. 

A  continuación  el  libro  explica  por  encima 
cómo  se  utilizan  las  rutinas  del  Basic  para 
evaluar  expresiones  (esto  se  detalla  mejor  en 
el  segundo  libro).  También  dice  algo  sobre  el 
Kernal  y  las  operaciones  de  entrada/salida. 

Por  último,  se  da  una  breve  descripción  de 
cómo  funciona  el  macroensamblador  que  se 
ha  utilizado  para  generar  los  programas  que 
aparecen  en  el  libro  y  las  típicas  tablas  de 
conversión. 

El  segundo  libro  “Lenguaje  máquina  para 
avanzados”  es  prácticamente  la  continuación 
de  la  primera  parte.  Puede  decirse  que  es  un 
libro  que  trata  todos  los  “temas  ocultos” 
sobre  el  código  máquina  del  C-64. 

Comienza  hablando  sobre  el  tema  de  la 
representación  numérica,  la  conversión  a 
coma  flotante,  etc.  Esto  es  poco  conocido 
por  la  mayoría  de  las  personas,  dado  que  la 
información  sobre  el  tema  es  casi  nula. 
Siguiendo  el  libro  puede  aprenderse  a  hacer 
raíces  cuadradas  en  código  máquina,  utilizar 
las  constantes  que  lleva  incorporado  el  orde- 

Esto  es  sólo  el  principio.  La  programación 
de  interrupciones  se  trata  a  fondo,  no  sólo  las 
interrupciones  IRQ  normales  sino  también 
las  del  controlador  de  vídeo  por  medio  del 
barrido  de  la  pantalla,  colisión  de  sprites,  etc. 
Esto  último  es  muy  interesante,  sobre  todo 
para  la  programación  de  juegos. 

También  explica  muy  bien  el  libro  la  utili¬ 
zación  de  la  CIA  6526  para  generar  interrup¬ 
ciones  y  la  utilización  de  los  Timers. 

Otro  tema  que  todo  el  mundo  ha  visto 
funcionando  pero  nadie  sabe  realmente 
cómo  se  puede  utilizar  son  los  vectores  Basic 
y  los  del  sistema  operativo  para  ampliar  los 
comandos  del  C-64.  Se  da  una  breve  descrip¬ 
ción  del  significado  de  los  diferentes  vectores 
y  ejemplos  sobre  todo  ello,  como  un  pro¬ 
grama  que  añade  el  comando  REPEAT... 
UNTIL.  También  contiene  una  tabla  con  las 
instrucciones  para  manejar  las  rutinas  del 

Por  último,  como  programa  curioso  de  uti- 
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lidad  aparece  el  listado  de  un  “spooler”  o 
Cola  de  Impresión.  Sirve  para  estar  utili¬ 
zando  una  impresora  Centronics  al  mismo 
tiempo  que  se  está  ejecutando  otro  programa 
con  el  C-64.  Es  un  ejemplo  sobre  cómo  ejecu- 


La  última  página  contiene  algo  que  será 
muy  útil  en  el  futuro:  una  tabla  de  equivalen¬ 
cias  entre  la  página  cero  del  C-64  y  del  C-128. 
Estos  libros  son  muy,  muy  interesantes 


tanto  para  los  que  no  tienen  ni  idea  de  código 
máquina  como  para  los  que  sólo  saben  “de¬ 
fenderse”  o  los  que  quieren  perfeccionarse. 
Vista  la  calidad  de  los  libros  el  precio  es  muy 
razonable. 


Interface  Centronics 
para  Commodore 


Ordenador:  C-128,  C-64,  SX-64,  C-16  o 
VIC-20. 

Fabricado  por:  CCISA 
Distribuido  por: 

Complementos  y  Consumibles 
Informáticos,  S.  A. 

C./  Comandante  Zorita,  53  -  4.°  C 
Madrid 

Tel:  (91)  234  15  20 
Precio:  15.000  ptas. 

En  el  mercado  español  podemos  encon¬ 
trar  una  amplia  gama  de  impresoras 
cuyo  interface  es  del  tipo  Centronics. 
Este  tipo  de  conexión  es  el  más  habitual  y 
barata  para  todas,  y  lo  suelen  llevar  incorpo¬ 
rados  casi  todos  los  ordenadores  personales, 
desde  los  pequeños  hasta  los  compatibles 
IBM. 

Pese  a  la  existencia  de  este  estándar, 
Commodore  ha  preferido  inventarse  el  suyo, 
y  para  no  inventarlo  todo  partió  del  estándar 
de  Intel  empleado  para  control  de  instrumen¬ 
tal  de  laboratorio  denominado  IEEE-488 
que  era  el  utilizado  por  los  equipos  de  la 
gama  profesional  de  Commodore.  Para  aba¬ 
ratar  en  parte  los  cables  de  conexión,  deci¬ 
dieron  modificarlo  y  hacerlo  con  un  raro 
protocolo  en  serie  (el  original  era  paralelo),  y 
a  consecuencia  de  ello,  sólo  están  disponibles 
en  el  mercado  un  número  limitado  de  impre¬ 
soras  compatibles  con  los  equipos  Commo¬ 
dore.  También  agrava  la  situación  el  juego 
de  caracteres  empleado  por  los  ordenadores 
ya  que  tampoco  coincide  con  el  estándar 
usual  (el  ASCII). 

Aquel  usuario  que  tenga  una  impresora 
normal  (Centronics)  adquirida  con  un  equipo 
anterior  o  por  disponer  de  otro  ordenador 
que  la  utiliza,  tendrá  que  adquirir  una  con  el 
interface  especial  de  Commodore  y  vender  la 
otra  aunque  sea  más  rápida,  de  mejor  calidad 
o  tenga  alguna  prestación  que  le  interesase 
conservar. 

Por  suerte  en  el  mercado  español  han  apa¬ 
recido  interfaces  que  permiten  conectar 
impresoras  normales  a  los  ordenadores 
Commodore.  Uno  de  estos  interfaces  es  el 
que  hemos  tenido  oportunidad  de  probar 
con  mi  Admate  DP-80  y  con  una  impresora 
gráfica  de  IBM  (la  Epson  MX-80). 


El  interface  lleva  dentro  un  microprocesa¬ 
dor  con  su  RAM,  ROM,  líneas  de  entrada- 
salida  paralelo,  etc.  dada  la  complejidad  de 
las  señales  que  maneja  en  el  bus  serie  de 
Commodore  y  que  además  tiene  que  realizar 
la  conversión  de  los  caracteres  Commodore  a 
los  caracteres  ASCII.  Esta  conversión  afecta 
sólo  a  los  símbolos  alfabéticos,  ya  que  los 
gráficos  de  Commodore  no  aparecerán  en  la 
impresora  a  menos  que  ésta  tenga  todo  el 
juego  de  caracteres  de  Commodore. 


El  interface  viene  en  una  caja  de  plástico 
con  alimentación  de  red  incorporada;  esto  es 
bastante  bueno  frente  a  aquellos  interfaces 
que  obtienen  su  alimentación  tomándola  del 
conector  de  cassette  del  ordenador.  Estos 
últimos  pueden  sobrecargar  la  fuente  de  ali¬ 
mentación  del  ordenador  y  estropearla 
irremisiblemente. 

Para  controlar  la  impresora  disponemos 
exactamente  de  los  mismos  comandos  em¬ 
pleados  normalmente  con  las  impresoras 
Commodore,  son  OPEN,  PRINT#,  CMD  y 
CLOSE. 


Ordenador:  C-64  (cartucho) 

Fabricado  por:  Home  &  Personal  Computers 
Distribuido  por: 

Hispasoft 

Paseo  Ruiseñores,  21 
50006  Zaragoza 
Precio:  12.900  ptas. 


En  español  sería  algo  asi  como  “El  car¬ 
tucho  definitivo”  lo  cual  es  una  aproxi¬ 
mación  bastante  acertada  a  la  rea¬ 
lidad. 

Este  cartucho  para  C-64  lleva  incorpora¬ 
dos  todo  tipo  de  utilitarios  que  generalmente 
se  venden  por  separado  y  son  incompatibles 
entre  sí.  Se  puede  decir  que  en  este  cartucho 
están  “juntos  pero  no  revueltos”. 

Para  empezar,  lleva  incorporados  turbo 
para  cinta  y  para  disco  que  aceptan  todos  los 
comandos.  También  incluye  un  buen  moni¬ 
tor  de  código  máquina,  comandos  de  ayuda 
a  la  programación,  comandos  de  disco,  algu¬ 
nos  comandos  Basic  modificados,  teclas  de 
función  programadas,  un  interface  Centro¬ 
nics  y  muchas  cosas  útiles  más. 

Vamos  a  comentar  una  a  una  todas  estas 
funciones. 

En  primer  lugar,  los  turbos.  El  turbo 
queda  conectado  siempre  que  se  tenga  el  car¬ 
tucho  puesto  en  el  ordenador.  Los  comandos 
para  usarlo  son  los  normales:  LOAD,  SAVE, 
PRINT#,  INPUT#,  GET#,  etc.,  de  modo  que 
no  hace  falta  modificar  los  programas  ya 
existentes  para  que  funcionen  a  gran  veloci¬ 
dad.  Por  ejemplo,  las  bases  de  datos  en  Basic 
con  almacenamiento  en  disco  o  cinta.  El 
turbo  para  cinta  acelera  el  datassette  apro¬ 
ximadamente  unas  10  veces,  mientras  que  el 
turbo  de  disco  lo  hace  entre  4  y  5  veces 
dependiendo  de  la  longitud  del  programa. 
Este  turbo  para  disco  es  capaz  de  leer  sin 
problemas  programas  que  constan  de  varias 
partes  (cosa  que  la  mayoría  son  incapaces  de 
hacer)  aunque  las  rutinas  de  carga  estén  en 
código  máquina. 


En  caso  de  que  la  impresora  posea  varios 
tipos  de  caracteres,  podemos  obtenerlos 
cambiando  la  dirección  secundaria  empleada 
al  abrir  el  canal  con  las  instrucciones: 

OPEN  4,4  Mayúsculas 
OPEN  4,4,7  Mayúsculas  y  minúsculas 
OPEN  4,4,8  Mayúsculas  en  cursiva 
OPEN  4,4,15  Modo  Test 

Este  interface  funciona  con  todos  los  mo¬ 
delos  de  la  gama,  desde  el  VIC-20  hasta  el 
C-128;  por  tanto  no  es  necesario  cambiarlo  al 
cambiar  de  modelo  de  ordenador  (siempre 
que  sigamos  con  personales  de  Commodore). 

Su  relación  precio/prestaciones  parece  ser 
mejor  que  la  de  otros  del  mercado,  ya  que  sus 
precios  suelen  oscilar  entre  las  16.000  y 
22.000  pesetas  y  sus  características  son 
similares. 


Los  comandos  del  monitor  de  código 
máquina  son  iguales  a  los  de  los  demás  moni¬ 
tores  que  hay  por  ahí.  Incluye  algunos  curio¬ 
sos,  como  “O”  para  levantar  bancos  de 
memoria  y  poder  utilizar  la  memoria  vacía 
que  hay  debajo  de  las  Roms  del  64.  Para  la 
lectura  debajo  de  ROM  desde  Basic  existen 
dos  comandos  especiales,  MR  y  MW,  que 
leen  y  escriben  respectivamente,  con  lo  que  el 
aprovechamiento  de  la  memoria  del  64  es 
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total.  Con  estos  comandos  pueden  almace¬ 
narse  datos,  gráficos,  pantallas  y  todo  lo  que 
uno  quiera  en  esa  zona  de  memoria  que  para 
la  mayoría  de  la  gente  no  existe. 

Los  comandos  de  ayuda  a  la  programa¬ 
ción  son  también  de  los  típicos:  Auto,  Del, 
Trace,  Oíd,  Renum...  Pero  funcionan  “bien” 
no  como  esos  que  no  renumeran  los  GOTO 
ni  los  GOSUB  o  se  hacen  un  lío  al  mezclar 
dos  programas.  El  comando  OLD  es  muy 
útil  y  sirve  para  recuperar  un  programa  Basic 
después  de  haberlo  borrado  con  NEW  o 
Reset.  También  incluye  APPEND  que  es 
similar  a  MERGE;  HELP  para  buscar  los 
errores  que  se  producen  en  los  programas, 
etcétera.  La  mayoría  de  estos  comandos 
están  destinados  a  la  depuración  de  progra¬ 
mas,  por  lo  que  no  están  incluidos  comandos 
de  gráficos,  sonidos  ni  cosas  por  el  estilo. 
Para  eso  están  los  demás  programas  (S¡- 
mon’s  Basic,  Breden’s  Basic,  Screen  Gra¬ 
phics...)  que  al  final  nunca  se  utilizan  para 

Además  de  los  comandos  normales,  hay 
añadidos  comandos  para  disco:  Catalog, 
Dload,  Dsave  y  demás  que  resultan  induda¬ 
blemente  útiles  para  los  usuarios  de  disco. 

Otras  modificaciones  sobre  el  Basic  nor¬ 
mal  del  C-64  han  sido  implementadas;  por 
ejemplo  LIST  no  se  detiene  ante  las  protec¬ 
ciones  en  los  listados  tipo  REM  [SHIFT  L]; 
es  posible  utilizar  notación  hexadecimal  en 
cualquier  momento  y  las  teclas  de  función 
están  definidas  con  los  comandos  más  intere¬ 
santes  de  este  cartucho.  Las  teclas  de  función 
no  son  definibles,  lo  que  no  habría  estado 
nada  mal. 

El  interface  Centronics  del  cartucho  fun¬ 
ciona  a  la  perfección;  lo  hemos  comprobado 


tanto  con  impresoras  como  con  el  plotter 
Roland/Vietronic  y  los  resultados  han  sido 
excelentes.  El  cable  Centronics  no  se  sumi¬ 
nistra  con  el  cartucho,  pero  la  casa  Hispasoft 
lo  vende  por  separado.  Naturalmente,  el  que 
no  tenga  una  impresora  Centronics  puede 
utilizar  cualquier  otra  normalmente,  pues  el 
cartucho  no  interfiere  el  buen  funciona¬ 
miento  del  conjunto. 

Un  comando  curioso  del  cartucho  que  está 
relacionado  con  la  impresora  es  TYPE  que 
hace  que  el  64  se  comporte  como  una 
máquina  de  escribir,  pudiéndose  utilizar 
todos  los  comandos  del  editor  de  pantalla 
para  el  manejo  del  texto. 

También  existe  la  posibilidad  de  sacar 
copias  de  pantallas  en  alta  resolución,  en 
impresoras  como  las  Epson,  Corona,  etc. 

El  cartucho  en  sí  es  como  todos  los  cartu¬ 
chos  para  el  Commodore,  pero  incluye  algo 
de  lo  que  los  demás  carecen  y  que  es  bastante 
sencillo  de  acoplar:  Un  botón  reset  y  un  inte¬ 
rruptor  para  conectar/desconectar  el  cartu¬ 
cho.  Esto  último  resulta  especialmente  útil 
para  no  estar  metiendo  y  sacando  el  cartucho 
cada  vez  que  se  quiera  utilizar.  En  realidad 
no  sería  necesario,  pues  ha  superado  casi 
todas  las  pruebas  de  compatibilidad  a  las  que 
le  hemos  sometido  — mezclándolo  con  otros 
programas  que  añaden  comandos,  con  utili¬ 
tarios,  etc. —  que  por  lo  general  deberían 
interferirle. 

El  manual,  que  está  en  castellano,  contiene 
una  detallada  descripción  de  cada  uno  de  los 
comandos,  el  monitor  y  también  el  esquema 
de  la  conexión  Centronics  para  el  Port  del  64. 

También  incluye  una  sección  que  casi  nin¬ 
guna  casa  se  atreve  a  incluir:  “lo  que  no 
puede  hacer  el  cartucho”.  Es  algo  especial¬ 


mente  destacable,  pues  puede  ahorrar  mu¬ 
chos  quebraderos  de  cabeza  a  la  gente  poco 
especializada.  Entre  las  cosas  que  no  puede 
hacer  está  leer  programas  protegidos  que  lle¬ 
ven  sus  propias  rutinas  de  carga.  A  este  res¬ 
pecto  hay  que  decir  que  algunas  pruebas  que 
hemos  hecho  ha  dado  muy  buenos  resultados 
con  programas  como  Summer  Games  y  Solo 
Flight,  mientras  que  con  Easy  Scrípt,  Super- 
base,  Skyfox  y  otros  no  ha  podido.  Esto  es 
debido  a  que  estos  programas  llevan,  como 
muy  bien  dice  el  manual,  sus  propias  rutinas 
de  carga  bloque-a-bloque  y  son  insalvables 
por  métodos  legales. 

Tampoco  puede  usarse  el  Port  RS-232  del 
64,  pues  está  destinado  a  la  comunicación 
Centronics.  La  única  solución  es  desconectar 
el  cartucho,  del  mismo  modo  que  cuando 
algún  programa  se  muestra  especialmente 
“rebelde”  para  funcionar  con  el  cartucho 
conectado.  En  algunas  ocasiones  basta  con 
usar  el  comando  OFF  que  viene  incorpo¬ 
rado.  Este  comando  desconecta  todos  los 
comandos  añadidos  dejando  en  funciona¬ 
miento  las  rutinas  turbo  y  Centronics. 

Para  finalizar  podríamos  decir  que  este 
cartucho  nos  ha  dejado  muy  buen  sabor  de 
boca,  pues  ha  demostrado  ser  casi  totalmente 
compatible  con  el  software  que  normalmente 
se  utiliza.  El  mérito  de  The  Final  Cartridge 
no  consiste  en  incorporar  turbo  para  cinta  y 
disco,  ni  comandos  de  ayuda,  ni  interface 
Centronics,  sino  en  tenerlo  todo  reunido  y 
funcionando  en  armonía.  A  pesar  del  precio, 
hay  que  tener  en  cuenta  que  se  está  com¬ 
prando  a  la  vez  un  monitor  de  lenguaje 
máquina,  unos  utilitarios,  unos  turbos  y  un 
interface  que  “juntos  y  revueltos”  ya  val¬ 
drían  más  que  el  cartucho  por  sí  solo. 


•  Jet  es  el  último  trabajo  de  Bruce 
Artwick,  el  diseñador  de  Flight 
Simulator  y  Flight  Simulator  II,  para 
SubLOGIC.  Jet  es  la  continuación  de 
Flight  Simulator  II,  con  mejores 
gráficos  y  animación.  A  buen  seguro 
que  tendrá  una  gran  acogida  entre 
todos  los  aficionados  a  este  tipo  de 
juegos. 

•  Las  populares  películas  de  George 
Lucas  Star  Wars  y  The  Empire  Strikes 
Back,  que  en  su  día  se  convirtieron  en 
videojuego  de  salón  gracias  a  Atari, 
están  disponibles  ahora  para  el  C-64 
en  forma  de  cartucho.  Parker  Brothers 
ha  conseguido  un  producto  que  ha 
sido  premiado  en  Estados  Unidos 
como  “Mejor  juego  de  fantasía/ciencia 
ficción  para  ordenador  del  año”  lo 
cual  dice  todo  sobre  su  calidad. 

•  Y  seguimos  con  George  Lucas,  que 
también  se  dedica  ahora  a  producir 
juegos  para  ordenador.  Es  el  caso  de 
Rescue  on  Fractalus!  y  Ballblazer,  dos 
nuevas  versiones  de  juegos  que  en  su 
día  fueron  creados  para  los  Atari 
5200.  El  guión  de  Rescue  on  Fractalus! 
no  es  demasiado  original:  rescatar  a 
unos  pilotos  que  han  sido  derribados 
sobre  el  planeta  Fractalus  y 
trasladarlos  a  la  Nave  Madre. 


Ballblazer  es  una  versión  futurista 
del  fútbol,  en  la  que  pueden  participar 
dos  jugadores.  Utiliza  una  pantalla 
partida  tipo  Pitstop  II,  en  la  que  cada 
jugador  puede  ver  el  terreno  de  juego 
que  le  rodea.  El  objetivo, 
naturalmente,  es  marcar  gol  en  la 
portería  del  contrario.  Dos  buenos 
juegos  de  Lucasfilm  que  esperamos  ver 
pronto  por  aquí. 

•  Lo  que  será  más  fácil  ver  por  estas 
tierras  son  los  juegos  de  Electronic 
Arts,  entre  los  que  están  la  segunda 
parte  de  Archon,  Archon  ILAdePt; 
M.U.L.E.,  un  curioso  y  divertido  juego 
de  estrategia;  Seven  Cities  of  Gold, 
juego  de  simulación  y  aventuras  con 
más  de  2.800  pantallas;  Pinball 
Construction  Set;  utilitarios  como  Cut 
&  Paste  (procesador  de  textos)  y 
Financial  Cookbook  (asesor  financiero); 
etc.  Dro  Soft  ya  comercializa  en 
España  One-on-One,  Skyfox,  Archon  y 
el  curioso  Realm  of  Impossibility,  por 
lo  que  es  posible  que  también  se 
decidan  a  traer  los  demás  títulos  de 
Electronics  Arts,  cosa  que  haría  muy 
feliz  a  más  de  uno. 

•  Cada  vez  que  el  cometa  Halley  se 
aproxima,  la  gente  hace  cosas  raras. 


En  la  era  de  las  computadoras  no  es 
extraño  que  aparezcan  programas  que 
tienen  a  Halley  como  protagonista: 

The  Halley  Project:  a  Mission  in  Our 
Solar  System,  de  Mindscape,  es  un 
completísimo  juego-simulación  con  la 
astronomía  como  tema  de  fondo.  Diez 
misiones  en  los  planetas  y  lunas  del 
sistema  solar  a  la  velocidad  de  la  luz 
antes  de  llegar  al  encuentro  con  el 
cometa.  Interesante,  desde  luego. 

•  Hablando  de  simulaciones  estelares: 
Sky  Travel:  a  Guide  to  Our  Galaxy,  de 
Commodore  Bussines  Machines  es  uno 
de  los  mejores  programas  que  desde 
Easy  Script  ha  producido 
Commodore.  En  un  solo  disco  están 
incluidos  datos  sobre  todas  las 
constelaciones,  planetas,  estrellas, 
galaxias  y  demás  objetos  interestelares 
(incluido  Halley!).  La  precisión  de  este 
programa  (incluye  su  propio  paquete 
matemático)  es  asombrosa.  Como 
opciones  curiosas  hay  que  decir  que  se 
puede  avanzar  o  retroceder  en  el 
tiempo,  ver  el  cielo  desde  cualquier 
lugar  de  la  tierra  con  diferentes 
ampliaciones,  sacar  copias  por 
impresora,  etc.  De  lo  mejorcito  de 
Commodore. 
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high  resolution  monochrome  monitor  12 


TRATTAMENTO  SCHERMO:  SCURO  •  ANTIRIFLETTENTE 


SCREEN  TREATMENT:  DARK  GLASS  ■  ETCHED 
DATI  MECCANICI 

MECHANICAL  DATA 


FOSFORO  •  P31  •  VERDE  MEDIO-BREVE 

PHOSPHOR-  P31  ■  GREEN  MEDIUM  SHORT 
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